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ZTITLE ‘CONTENTS = Table of Contents formatter program’ 
! <BLF /NOF ORMAT> 


MODULE contents (IDENT = ‘V 00' 
ZBLISS32C, VADDRESSING -MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_PFLATIVE)) 
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BEGIN 


baytre:! > 
'<BLF /LOWERCASE =U3ER> 
i<BLF/UPPERCASE KEY> 
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!* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!® ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corres 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF ny NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i. tamasckate” O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
: oemPOkat itn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONS 
!* SOFTWARE ON EQUIPMENT WHIC 
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! FACILITY: 
DSR (Digital Standard RUNOFF) /DSRPLUS DSRTOC/CONTENTS Utility 
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i ABSTRACT: 
Read and process a RUNOFF binary table of contents file. 


1 
1 
! 
1 
' 
1 
! 
: ENVIRONMENT: Transportable 
: AUTHOR: JPK 
! 
i 
t 
' 
' 
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NOUS WOON 


i CREATION DATE: March 1982 
i MODIFIED BY: 
013 PK00011 20-May 


1983 
Modi tied CONTENTS to check status of SXPO_PARSE_SPEC to avoid 
XPORT error messages. 
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012 JPKQ0010 05-May-1983 
Modified eye gS & to change text for index record grove te to all 
caps. Mod tee CAPTION to change the number of blank Lins 

after the entity title Line. 


011 alli 24-Mar-1983 


010 JPK00008 09-Mar rH i 
Modified CONTENTS and. CA PTION to support new BRN formats, 
support SEND CONTENTS, /DOUBLE_SPACE, page numbered chapters, 
guarantee space after section fiumber and to write new 
rologue and e settee for RUNOFF o 

odified FORMA uote _— ue UNOF F ftogs used by CONTENTS. 
Modified CNTVMS to fix default for /DOUBLE_SPACE and do more 
value checking. 


009 JPK00007 14-Feb-1983 

Global edit of all sources for CONTENTS/DSRTOC: 
module names are now consistant with file names 

copyright dates have been updated 

facility names have been updated 

revision history was updated to be consistant with DSR/DSRPLUS 


008 JPK00006 14-Feb-1983 
Modified CNTVMS, CONTENTS, FORMA{ and CNTVMSMSG to generate 
error messages for DSRTOC or CONTENTS depend in on the 
compiletime variant for DSRPLUS (/VAPRIANT:819 


007 JPK00005 14-Feb-1983 
SEND. Tot the names of the temporary files used to s 
- SEN figure saps & nd oxen pie ca potions, trom. KPORT. TMP; 1, 
“ht oO OCNTST.TMP, OCNIFG.TMP, OCNTT 
bchrex? rap Feosuxtteihe: “Delete the output File {¢°/NOOUTPUT 
was specified on the command Line. Module CONTENTS modified. 


006 JPK00004 11-Feb-1983 
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Changed the global yatisole. name INDENT to LINE_INDENT in 
modules CONTENTS engl ge and 

Removed declarations of POENTS in modules CNTVMS, CONTENTS, 
and CAPTION ong replaced with a phe wide BIND “using the 
new name INDENT 

Changed handlin “of INDENTS [1]. It no longer represents the 
sum of the chapter and title indents. 


005 KFA00003 04-Feb-1983 
fo ified format of header level one to not include 
in the counter. Change was in OUTSEC in module CONTENTS. 


004 FA00002 14-0ct-1982 
Modi tied CNTVMS, CONTENTS, APTION and CNTCLI.REQ to handle 
new syntax for 7 INDENT qual fier. All _ indents are ney 
stored in the vector CMDBLK ECONTENTSSAG™ “HL. INDENT (J), 
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where 0 = chapter indent, 1 = header level one indent, etc. 


003 KFAQ0001 13-0ct-1982 
Modified CONTENTS and CAPTION to allow null captions for 
headers, examples, figures, & tables. 


' 

1 

! 

' 

' 

002 JPK00001 17-Sep-1982 

} Modified CONTENTS for bor HF is included splitting routine 

n 5 

' 

' 

' 
| 
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1 
1 
1 
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toc () into toc () and toc oO that it can be compiled on 
the 20, and cot ling $XPO_GET_MEM and $XPO_FREE_MEM to 

fenporar tt store the prefix and suffix strings for HEADER 
EXAMPLE, FIGURE and TABLE. 


TABLE OF CONTENTS: 


— ROUTINE 


oc 
tocini, 
process_page : NOVALUE, 
process_entity_info : NOVALUE, 
process_entity_txt : NOVALUE, 
tocfin, 


vfycap, 
outsec : NOVALUE; 


Main routine 

Do initialization 

Process page reference record 

Process figure/table/example info record 
Process vigures ses eronsmess text record 
Complete processing and c 

Check caption style 

Generate section number 


ean up 


INCLUDE FILES: 


LIBRARY ‘NXPORT:XPORT'; 
ZIF XBLISS (BLISS36) 
ZTHEN 


REQUIRE ‘REQ:RNODEF'; 
tFI 
ZIF ZBLISS (BLISS32) 
THEN 


ccccr 


[ ond 


REQUIRE ‘REQ: CNTVMSREQ'; ! VMS error messages 
2FI 
REQUIRE ‘REQ:BRNRTY'; 
REQUIRE ‘REQ:PAGEN'; 
REQUIRE ‘REQ:TOCRTY'; 
REQUIRE ‘REQ:CNTCLI'; 
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Binary RUNOFF file formats 
Page reference format 


Table of Contents file formats 
Command Line information block formats 
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EXTERNAL REFERENCES: 


EXTERNAL 


Command Line information block 
I10B for the resulting nt file 


Length of vers 


cmdblk : $contents_cmd, 
tocoob : $xpo_iob 7%), 
stciob : $xpo_iob 4), 
cntvrl, 

cntvrp, 

chrout, 


on number string 
CHSPTR to version number string 
Number of characters written to output file 
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1 } 
1 Insert specified character sequence into file, as is. 
66 1 put (str) = 
1 BEGIN 
1 $str_copy (string = str, target = tmpstr); 
§ 1 chrout = eghrout + ,tmpstr pstrsh Length 
TAY : $xpo_put (iob = tocoob, string = Empstr); 
te : } For TMS output, split the output file if it gets too large 
74 «1 
0875 : IF .cmdblk Ccontents$v_tms11] THEN split (); 
oB79 1 END 
0878 #1 zt; 
0879 1 
0880 1! 
0881 1 ! EQUATED SYMBOLS: 
bees 7 7 
0883 1 
0884 1 LITERAL 
0885 1 true = 1 
oB8e 1 false = 6, 
0887 1 new_captions = 1 ! Using HEADER FIGURE, etc. 
0888 1 old_captions = -{, ! Using SEND TOC for captions 
1 tms_line_length = 600, 
! infinity’= 1*°(%BPVAL = 1) = 1; 
: f 
: OWN STORAGE: 
1 
1 OWN 
1 tociob : $xpo_iob (), ! 108 for binary index file. 
1 file type, : Input file type 
1 fgiob : $xpo_iob (), ! I10B for HEADER FIGUREs 
1 tbiob : $xpo_iob (), ' I0B for HEADER TABLEs 
t exiob : $xpo_iob (), ' I0B for HEADER EXAMPLEs 
1 hlent : Maximum number of header levels 
1 lasthl, ' prev ous ‘'n 
1 toc_page : INITIAL (false), ! True if a CHAPTER should have a page reference 
1 captyp, ! To tell if SEND TOC or HEADER x was used : 
1 capmsg, ' True if incompatable captions and message was written 
: errcnt; ! Count of number of CONFUSED messages. 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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14-Sep-19 


tmpstr : $str_descriptor (), 
txtlen, 

hlon, 

hiTist : VECTOR £1003. 

hidsp : VECTOR (100), 

majo 


pagen : page_definition, 
nxtstc, 

rno_ex : $str_descriptor 
rno_fg : $str_descriptor 
rno_tb : $str_descriptor 
tms_ex : $str_descriptor 
tms_fg : $str_descriptor 
tms_tb : $str_descriptor 
prestr : $str_descriptor 
sfxstr : $str_descriptor 


LLL LOLOL Le Fm 
ee ee ee ee ee ee ee 


extlin, 
Line : VECTOR CCHSALLOCATION (10000)], 


enpag, 
he | : VECTOR CCHSALLOCATION (50)], 
rpag, 


ensct, 
txtsct : VECTOR CCHSALLOCATION (150)], 
ptrsct, 
rmargin, 


wrap, 
Line_indent; 


Oe ee ee 
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For temporary strings 
Length of input text. 
n 


from latest .HL n command 


He sider level counter 


s 
ney level display characteristics 
a 


or record type code 
Minor record type code 
Current page numb 
Next SEND TOC 
String constant ‘EXAMPLES' 
String constant ‘FIGURES’ 
String constant ‘TABLES' 
String constant ‘Examples’ 
String constant ‘Figures’ 
String constant ‘Tables' 
Caption prefix strings 
reeeren suffix strin 
CHSPTR 


Number 


The text (lots of room) 
A CHSPTR oe pointer) 
Number of characte 

The text (lots of room) 

A CH$PTR (working pointer) 


Used by ENDWRD for controlling filling Lines. 
Wrap one lines around to here. 
is standard indentation before the text. 


Assume t 


IND 
indents = cmdblk Ccontents$ag_hl_indent] : VECTOR; 


EXTERNAL ROUTINE 


fmttxt : NOVALUE, 
ALUE 


insrnt : NOVALUE, 


PacCxxx; 


RIF ZBLISS (BLISS32) 
THEN 


EXTERNAL ROUTINE 


open_error; 


Generate formatted text 
Insert a page reference 
Process .HEADER x Captions 


Process .SEND TOC n Captions 
Insert text otrectiy into RNT 
e for TMS 


Start new output fi 
Convert a number to ASCII 


Convert a PAGEN to a page number 


Format a section number 


Convert number to ASCII using display codes 


Action routine to handle file open failures 


’ per. 
"'n’’ value to process 


s 
a ong line being built up 
of characters needed to r 
Number of resulting print positi 
Buffer in which Line is being built up. 
Number of characters in the converted page number. 


epresent text 
ons 


rs in the converted section number 
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ransportable entry point 122860=1 382 99:03:83 RUNOFF .SRCICON 
RSBTTL ‘TOC = Transportable entry point’ 
GLOBAL ROUTINE toc = 
FUNCTIONAL DESCRIPTION: 


Reads a binary table of contents file, as generated by RUNOFF 
and uses it to generate a .RNT file. 


' FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
Implicit is the order in which records are written, and the 
format of the file. The format of the file is adequately 
documented by the code. It will not be further explained. 


The order of information in the file is not obvious, although 
its use shows what is available when. 


Briefly, there is an entry in the file (MAJ_PAGE) for every page 
in the document, regardless of whether or not that page is 


mentioned in the table of contents. Further, the page number is 
peerentens to occur before you get some text associated with 


hat page. So, if header level text is found, the page number 
is already correct. 


always written before the header level text to which it is 
applicable. Note that the header level information is *not* 
reset in the file at the start of a chapter; you have to wait 
for the next header level number record to be input to be sure 
where you are. The page number and header level information is 
as valid for text from the .SEND command as it is for text from 
a .HL command. 

IMPLICIT OUTPUTS: 
NONE 


! ROUTINE VALUE: 


i 

i 

i 

i 

! 

i 

' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

Similarily, header level numbers and display information are 
' 

i 

i 

! 

i 

i 

i 

i 

i 

i 

i 

i 

COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 
le 


BEGIN 
Do initialization 
iF NOT tocini () THEN RETURN false; 
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; 397 1030 $ 
; 398 1031 ' : 
; 399 1 § : Read record-groups until end of file. Process each record group . 
; ret e : in turn. Return at end-of-file. | ; 
; 40 13 5 WHILE Sxpo_get (iob = tociob, fullwords = 2) EQL xpo$_normal DO : 
; 40 1 $ BEG! | : 
; 404 13 : 
; 405 1038 BIND : 
3 ry 1923 coges = .tociob Ciob$a_data] : VECTOR; : 
; 408 +e $ IF (.file_type EQL brn_file) AND (.codes C0] NEQ brn contents) : 
; 409 1 F 
> 410 1043 4 BEGIN : 
; 6411 1044 4 : : 
; ri¢ 1045 4 ! Not a contents record group. Skip it. : 
; (41 1046 4 ! $ 
: 414 1047 4 $xpo_get (iob = tociob, fullwords = .codes ([1]); : 
s 415 1048 4 EN : 
> 416 1049 3 ELSE ; 
; 417 1050 4 BEGIN ; 
; 418 1051 4 ! : 
: $33 1036 : A contents record group or not a .BRN file ; 
3 $s! Ieee 2 IF .file_type EQL brn_file THEN $xpo_get (iob = tociob, fullwords = 2); : 
: 638 1056 4 major = .codes £92: : 
: 424 1057 4 minor = .codes (1); : 
> 425 1058 4 : 
3 $s8 1059 4 SELECTONE true OF : 
; 427 1060 4 SET : 
: 428 1061 4 : ; 
3 $$? 1006 4 say’ EQL maj_new_toc] : : 
: 430 1065 5 EGIN : 
> 431 1064 5 : 
: 432 1065 5 ! File identification record in a BRN file 3 
; 433 1066 5 ! : 
; 434 1067 6 IF pity NEQ brn_file) 3 
; 435 1068 6 OR (.minor NEQ toc_format) | : 
: 436 1069 5 THEN : 
3; 437 1070 6 BEGIN : 
; 438 1071 6 } : ; 
; 439 O76 6 ' Report bad file format and quit | : 
: 440 19 6 ! : 
3 441 1074 6 ‘ 
3 ry L 1075 6 ZIF XBLISS (BLISS32) : 
3; 44 1976 6 XTHEN : J | : 
3 4646 1077 6 SIGNAL (contents$_invinput, 1, tociob Ciob$t_resultant)); : 
3: «445 U 1978 6 ZELSE : : 
5 O66 U 1079 6 $xpo_put_msg (severity = warning, 3 
3: 44 U 1930 6 string = $str_concat (‘invalid file format ''', : 
3 448 U 1081 6 tociob Cidb$t_resultant], '''')); : 
3 449 1 ¢ xFI . 
3; 450 1 END; ‘ 
3; «6451 1084 : 
: $26 1085 4 END; - 
3 45 1086 4 ; 
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: i 1088 : C(.major EQL maj_runoff) AND (.minor EQL min_page)] : | 

a 1 4 i Process a page number. 

i it Keepeiign 

3 rocess_page (); 

489 109 . ~ | 

; 460 1093 4 S.ealor EQL maj_runoff) AND (.minor EQL min_index)] : 

; 461 1094 BEGIN 

: 46 1095 

: ret 1998 } Make an entry in the table of contents for the index | 

; ree 1998 errcnt = 0; ! Reset count of CONFUSED messages. 

s 467 1100 : IF _ .cmdblk Ccontents$v_tms11] 

; 468 1101 THEN 

; 469 1106 6 BEGIN 

: 470 11 6 put (''); 

3; 471 1104 6 

; 467 1105 6 IF .hl_im NEQ O THEN put ('Cval5]'); 

s 67 1106 6 

3: 474 1107 6 Be ("*cOntIndexaa'); 

: 475 1108 6 

; 476 1109 5 ELSE 

3; 477 1110 6 BEGIN 

2 rh 44 ? IF .hl_im NEQ 0 THEN put (*.SK2") ELSE put (°.SK1"); 

; 480 1143 6 IF indents (CO) NEQ 0 

3; 481 1114 6 THEN 

: 482 1115 6 put ($str_concat ('.I-", $str_ascii (.indents (0]))); 

> 483 1116 6 

: 4684 1117 6 put ("INDEX"); 

> 485 1118 6 put (* BLANK'S; 

; 486 1119 5 

; 487 1120 5 

; 488 1121 5 hl_n = 0; ' Set .BLANK info 

: 489 1156 5 lasthl = 0; 

; 490 1125 4 END; 

; 491 ise 4 

3; 49 1125 5 goer EQL maj_runoff) 

; 49 1126 5 A 

3 494 1127 6 (.minor EQL min_examp_inf) 

3 6495 1128 6 OR (. minor EQL min_table_inf) 

: 496 1129 g OR (.minor EQL min_figur_inf) 

: 497 1130 ) 

: 498 1131 4 J): 

3; 499 1136 4 ‘ 

3 4 1 ? ? Example, Table, or Figure information 

3 i 1135 ° process_entity_info (); 

; 504 11 $ 2 ot .melor EQL maj_runoff) 

; 505 1138 AND ( ‘ 

: 206 1139 6 (,.minor EQL min_examp_txt) 

-m.. 1140 6 OR (.minor EQL Min_exdmp_txt_u) 

; e08 1141 6 OR (.minor EQL min_figur_txt 

3; 509 1128 6 OR (.minor EQL min_figur_txt_u) | 

; 510 1143 6 OR (.minor EQL min_table_txt) 
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; 11 1144 OR (.minor EQL min_table_txt_u) 
; aE 1145 § ) = nel, 
: 1 1128 4 33 
; 318 1148 2 | Figure, Table or Exenpt 
3 ! ure, Table or Example text 
i 3 ig Montphoey sage 
3 rocess_en _tx : 
i a iti) i aaiee Ss, ml: aalh ink cater SE win CED 
; -major maj_runo -minor min hl_in : 
: 520 1188 BEGIN 
3 Se) 1154 ! 
s 308 1182 Read header level counters and display descriptors 
: 524 41157 errcnt = 0; ! Reset count of CONFUSED messages. 
: 385 1158 5 a 
> 526 1159 5 ! First get count of header level counters. 
3 Der 1160 5 ! 
; 528 1161 5 $xpo_get (iob = perio fullwords = 1); 
3 262 1326 2 hlent = .(.tociob iob$a_datal); 
: 23) 119% : Next, get the ''n'’ value for this ‘’.HL n'' command 
$ pee 1166 5 $xpo_get (iob = tociob, fullwords = 1); 
; a3¢ 11ef 2 hl.n'= .(.tociob Ciob$a_datal); 
3; 338 1169 : ! Now read the complete set of header level counters, 
3 230 1309 2 not all of which are important 
; 337 1128 5 ceee get (iob = tociob, fullwords = .hlcnt); 
: 540 1173 6 BEGIN 
> 541 1174 6 
3 246 1175 6 BIND ; , 
: 54 1176 6 x = .tociob Ciob$a_data] : VECTOR; 
> 544 1177 6 
3; 545 1178 6 INCR i FROM 1 TO .hlcnt DO 
: 546 1179 7 BEGIN 
s 547 1180 7 ! 
: 548 1181 7 ' Copy the header level counters to a safe place 
3; 549 1186 7 ! ; ; 
; 550 1183 7 hllist C.i - 1) = .x C.i - 1); 
s 33) 1184 6 END; 
: 226 1185 6 
; 33 1138 5 END; 
> 554 118 ‘Ree 
: 322 1138 } Finally, read the header level display descriptors. 
s. 3o7 1190 94) get (iob = tociob, fullwords = .hlcnt); 
; 558 1191 6 BEGIN 
3 223 1138 6 
: 560 1193 6 BIND ; . 
; 36} 1194 6 x = .tociob Ciob$a_data] : VECTOR; 
3 206 1195 6 4 
: 6 1138 § INCR i FROM 1 TO .hicnt DO 
3: 564 119 BEGIN 
; 565 Bb 7 : : 
: 66 1199 7 ' Copy the header level descriptors to a safe place 
; 1200 7 ! 
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58 hidsp C.i - 1] = .x C.i = 1); 

9 g EN ND; 


END; 
END; 


oC .malor EQL maj_runoff) 
AND ( 
(,.minor EQL min_hl_txt 
OR (.minor EQL min_h att txt_u) 
BEGIN 
| Process the text part of a header level. 


LOCAL 
needed_fill; 


errcnt = 0; ! Reset count of CONFUSED messages. 


i First read the number of characters needed to 
represent the header Level 


bee, get 2 ny os tociob, fullwords = 1); 
tlén = .(.tociob Liob$a _dataJ); |! Save text Length. 
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5 Generate a table of contents with or without text 
: i The header level may or may not have text associated with it 
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5 
2 
$$ 
2 
$$ 
$5 
rd 25 Get the text, if there is any 
599 23 ir .txtlen NEQ 0 
600 23 THEN 
oe $3 $xpo_get (iob = tociob, fullwords = CHSALLOCATION (.txtlen)); 
603 23 ! 
604 $3 i Generate the associated TOC text i if this header 
it $ } level is within the depth specified by the user. 
607 0 IF .hl_n LEQ .cmdblk Ccontents$g_headers] 
ae Me ioeci 
610 24 
611 sie IF (.hlin LEQ. fret Se th double_space]) 
oi¢ 45 AND NOT -cmdblk Ccontents$v_tms11 
61 re THEN 
ete "i put (".BLANK'); 
616 4 ! 
617 50 ! Initialize output Line. 
618 51 ! 
ei) 26 giratine 0; 
621 54 i ALL header Level entries are generated under the 
6 § 55 i assumption of a .LMn command in the file. 
6 28 i Therefore, even though no text has been generated 
624 5 i yet we have to act as if ''n’’ characters have been 


eee 
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you B00 TOC = Transportable entry point — 12786-1382 99:93:23 RUNOFF ..SRCJCONTENTS.BLI;1 = 5 
: 635 1258 ! taken up. | 
é ? 60 6 extlin = ,indents (0); | 
3 ? ; } ¢ ? Set standard indentation in front of this header level line | 
; A 1 64 ‘ line_indent = .indents (0J; 
: 6 § 1 66 6 i Generate the header level numbers if the header is | 
: ° ¢ : a4 ? numbered. If unnumbered, just put out the text. 
; e3 } $ ° gutsec QM; | 
; O38 : 4! ? Set up Line-wrap point 
5 ory : 78 ? wrap = .extlin; 
: 64 1275 6 i Generate the page number so as to get its length. 
; 64 1 6 6 ! This is needed so that the proper number of dots 
: vie iste ? can be supplied. 
; 6466 1379 6 ptrpag = CHSPTR (txtpag); 
3 23 1¢6) ° gs -cmdblk Ccontents$v_standard_page] 
: 650 1588 9 BEGIN 
: 651 1284 7 ! 
: 636 1285 7 ! Use the running page counter instead of a 
: $37 1586 4 real page number. 
; TH ieee 4 lenpag = pacbas (.pagen Csct_run_pageJ, ptrpag, 10); 
: 657 1290 § ELSE 
; 658 1291 BEGIN 
3; 659 1$36 7 ! 
: roe 1so7 Supply the usual page number. 
: b6¢ 1295 7 lenpag = pacpag (pagen, ptrpag); 
; 66 1296 6 END; 
3; 664 1599 6 
3; 665 1298 6 ! a 
: rr¢] +43 ° Set Limit beyond which words must be wrapped 
: 668 : 4 ? rmargin = .cmdblk Ccontents$g_page_width] - .lenpag - 1; 
: eo : 08 ° Scan text and put it onto the Line. | 
: of \ be 2 fmetxt (.txtlen, CHSPTR (.tociob Ciob$a_data])); 
; ore tA ? Insert page reference into line if desired. 
: 4 ' . ? insret Q); 
: 678 if 6 Now actually put this Line of text into the file 
: 680 1 18 6 put ((.intlin, CHSPTR (Line))); 
; 681 1314 6 clriline 0); 
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3; © 1315 END; 
; © 4 131 ; 
3 ORE : ! ? jagent = shh in; 
: 6 1319 4 : 
3 ? : 2 CC mejor EQL maj_runoff) 
; 6 1 § (.minor EQL min_chapt_inf) 
3 4 : ? OR (.minor EQL min_append_inf) 
: 69 1325 4 ): 
3 e38 } $ BEGIN 
; 695 1 g Process Chapter/Appendix info record 
; 637 1330 LOCAL 
; en; 
; 1 
3 $80 1 4 ny get (iob = tociob, agp sh = 1); ! Get TOC page 
; 701 1334 page = ..tociob Liob$a_data 
: 70 1335 oe get (iob = tociob, fullwords = 1); ! Skip unused word 
: 70 1 § $xpc_get (iob = tociob, pe = 1): ! Get prefix Length 
3 ree : . len = ..tociob Ciob$a_data 
; 706 1339 IF .len GTR 0 
s 70 1340 THEN £ prety. string 
3 ps ; o $xpo_get (iob = tociob, fullwords = CHSALLOGAT len)); 
: 710 P 1 rk $str_copy (string = (.len, CHSPTR (.tociob Ciob$a_data])), 
; re } rt: : target = prestr); 
: 71 134 $xpo_get (iob = tociob, fullwords = 1); ! Get suffix length 
5 ae ’ ‘3 len B. tectes Ciob$a _datal; . 
: 716 1349 ; IF .len GTR O 
3 (77 1350 THEN Get petits string 
; re : 2) 5 $xpo_get (iob = tociob, fullwords = CHSALLOCATION ¢ elen)); 
: 720 P 1 2g $str_copy (string = * Len, CHSPTR (.tociob Ciob$a_data])), 
3 Yer 1354 target = sfxstr) 
Bm ORR E e: 
3 726 1 35 4 ¢ 
; 4 5 ! 28 2 CC .maler EQL maj_runoff) 
: 7 $ 1360 6 (.minor EQL min_chapt) 
3s fea 1361 6 OR (.minor EQL min _chapt_txt) 
; 729 1 6¢ 6 OR (.minor EQL min_chapt_txt_u) 
we 1 6 OR (.minor EQL min_append) 
3 673 1364 6 OR (.minor EQL min_append_txt) 
; ¢ ! 23 g on (.minor EQL min_append_txt_u) 
; , 5 $8 é fy BEGIN 
cP 1369 
fae 1370 ' Process the start of a chapter or appendix 
, £ 1371 ! 


————LK— 


8 
CONTENTS CONTENTS = Table of Contents formatter program 1bse -1984 00:01:0 AX-11 Bliss-32 V4.0-742 
yoe-800 TOC = Transportable entry point _ 1 ~30071 382 99:03:23 RUNOFF .SRCICONTENT. .BL 1:1 
; 7 7 LOCAL 
5 138 318 ptr; 
; 741 74 
: 74 75 erreng = 0; ! Reset count of CONFUSED messages. 
; 48 16 clr_line (5; i Clear the text buffer 
5 745 8 IF_.cmdblk Ccontents$v_tms11] 
; 74 7 THE 
: 74 0 6 BEGIN 
: 748 1 6 ! 
; oop ¢ ? TMS output 
; Hs : ? put c**}3 
Re, g : 6 IF .hl.n NEQ 0 THEN put ('Cval5)"); 
3 ree 87 6 
3 oo 88 6 IF NOT .toc_page 
3 £e8 89 8 TH 
eee 90 literal_text ('*cOne*') 
; 758 91 6 ELS 
3; roy 92 6 Literal_text ('*cOnp*'); 
; 760 93 6 
: 761 9% g END 
; 166 95 ELSE 
3; £6 96 6 BEGIN 
: 764 97 6 ! 
: 765 98 6 ! RUNOFF output 
: 766 99 6 ! 
: 90 § put (*.TEST PAGE 5"); 
: 8 6 IF .cmdblk Ccontents$g_headers] NEQ 0 
; 04 , BEGIN 
; 06 g IF .hl_n NEQ 0 THEN put ('.SK2") ELSE put (*.SK1"); 
: 08 6 END; 
3 09 6 
3 10 6 IF .indents CO] NEQ 0 
3 11 6 THEN 
; \¢ 2 put ($str_concat ('.I-", $str_ascii (.indents [0]))); 
; 14 6 Line_indent = .indents (0); 
3 15 rmargin = .cmdblk Ccontents$g_page_width]; 
3 1g END; 
1 3 
; 1? Now reset the .BLANK information 
; 1 iasthl = 0; 
: § -n = 0; 
: 4 6 IF (.minor NEQ min_chapt_txt_u) 
3 5 2 AND (.minor NEQ min_append_txf_u) 
; § THEN 
; ° BEGIN 
3 8 : 


re 
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OC = Transportable entry point 14-Sep- RUNOFF ..SRC CONT 31 
$ f \é 3 : Insert the word CHAPTER or APPENDIX 
; 198 14 iF (.minor EQL min_chapt) 
7 14 OR (.minor EQL min_chapt_txt) 
; 800 14 THEN 
; 4! 1° : t BEGIN 
; 80 14 $ 7 i This is the start of a chapter 
; 804 te 7 : 
; 805 14 5 4 IF _ .cmdblk Ccontents$v_tms11] 
: 14 THEN 
3 44 1229 4 fmttxt (8, CHSPTR (UPLIT ("Chapter '))) 
; 809 144g fmttxt (8, CHSPTR (UPLIT ("CHAPTER '))); 
: Bit ic, END 
; Big 1445 & ELSE 
; 81 bs | BEGIN 
; 814 1447 7 ' 
3 8S 1448 7 ! This is the start of an appendix 
; 518 1449 7 i 
; 3 1450 7 IF_.cmdblk Ccontents$v_tms11] 
; 818 1451 7 TH 
2 $1? 1426 4 fmttxt (9, CHSPTR (UPLIT ("Appendix '))) 
; 631 1338 4 fmttxt (9, CHSPTR (UPLIT ("APPENDIX '))); 
: : is § = 
; 825 1458 6 
; Hi 1435 ? } Insert the prefix string if any 
; 828 146) 6 if gprestr Cstr$h_length] NEQ 9 
; 886 1468 ? fmttxt (.prestr Cstr$h_length], .prestr Cstr$a_pointer]); 
: 83 1465 6 
3 638 1368 ? Convert the ‘'‘number’’ of this chapter/appendix to its visual form. 
; HH re 6 ptrsct = CHSPTR (txtsct); 
3 8 148 6 ensct = pacsec “pogen ptrsct); 
: See 1629 ° fmttxt (.lensct, CHSPTR (txtsct)) 
: 839 1472 6 
3 B20 1478 ° Insert the suffix string if there is one 
; B4¢ 1475 6 iF .sfxstr Cstr$h_length] NEQ 0 
: rf. 1477 ? fmttxt (.sfxstr Cstr$h_length], .sfxstr Cstr$a_pointer)); 
; Beg 147 aa -cmdblk Ccontents$v_tms11] THEN write_char (2C° ‘, counts_visually); 
: 84 1481 : 
3 ‘3 i IF .cmdblk Ccontents$v_tms11] THEN write char (%C'a"'); 
: 851 1484 
; 852 1485 ! Determine the number of characters in the chapter/appendix title 


4 
4 
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4.0- 
RUNOFF ..SRCJCONTENTS 


if any. 


$xpo_get (iob = tociob, fuliwords = 1 
0 


); 
txtlen = .(.tociob $a_data]); Save text length. 
if 


Spercorsere 


C 

T T 
5 1 
; 855 
fo ig 
; § 149 i Now read the chapter/appendix text 
; 8 ! 2 } any exists. 
: 861 1494 if .txtlen GTR 0 
3 ¢ 1495 THEN 
: 1238 $xpo_get (iob = tociob, fullwords = CHSALLOCATION (.txtlen)); 
3 bes 1208 IF NOT .cmdblk Ccontents$v_tms11] 
; 867 1500 ad ((.indents [0] + .indents [1] - .extlin)); 
: B68 1501 2 : 
; 869 1306 ! 
: 370 120? Be sure that long chapter titles get wrapped around correctly 
: 87 1505 wrap = .extlin; 
2 et: : prey 
3 . toc_page 
: Bie 1508 — 
: 876 1509 6 BEGIN 
s Orr 1510 6 ‘ 
; 878 1511 6 ! Generate a page number. 
: Ba0 1818 & xt CHSPTR (txtpag) 
3 rpag = ag); 
: 881 1514 6 Sede edie 
3 HY 1515 6 IF NOT .cmdblk Ccontents$v_standard_page] 
: She 1319 & eu bas ( [set 1, pt 10) 
3 enpag = pacbas (.pagen Csct_run_pageJ, ptrpag, 
BBS 1518 6 of pag = p pag s -Pag ptrpag 
: ty, 123? ? lenpag = pacpag (pagen, ptrpag); 
: 888 1381 rmargin = .cmdblk Ccontents$g_page_width] - .lenpag - 1; 
; 889 15 ; END; 
; 890 15 
; 4891 1524 ! 
3 £36 1 5 Scan text and put it onto the Line. 
: B3e 1 ; fmttxt (.txtlen, CHSPTR (.tociob Ciob$a_data])); 
; 1529 IF .toc_page 
3 $99 1530 THEN sails 
3 528 1531 6 BEGIN 
; 899 15 § 6 ' 
; ss 1 ? ? Insert page reference into Line 
: 908 13 5 6 insref (); 
; 15 § 6 toc_page = false; 
: 904 1 3 
: 905 1538 ELSE 
3 306 1373 6 BEGIN 
: 90 1540 6 
: 908 1541 3 IF .cmdblk Ccontents$v_tms11] THEN write_char (%C'a'); 
; 909 1542 END; 
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SSFERE 


-Sep-1 RUNOFF .SRCJCONTENTS.BLI;1 


Now actually put this Line of text into the file 


put ((.intlin, CHSPTR (Line))); 
clr line (); 


i Standard skipping after starting chapter/appendix entry 
if Not .cmdblk Ccontents$v_tms11] THEN put ('.BLANK'); 


p-malee EQL maj_send_contents] : 
BEGIN 


A SEND CONTENTS record 
LOCAL 
type, 
osition, 
en, 
iob_ptr : REF $xpo_iob (); 
type = .minor<0, %BPVAL/2>; 
osition = .minor<ZBPVAL/2, X%BPVAL/2>; 
xpo_get (iob = tociob, fullwords = 15; ! Get text length 
len = ..tociob Ciob$a_data); 
IF .len GTR O 
THEN ! Get text 
$xpo_get (iob = tociob, fullwords = CHSALLOCATION (.Llen)); 


SELECTONE .position OF 
SET 
Cscon_lev): 
BEGIN 


Insert in main part of table of contents 
iob_ptr = 0; 
IF .type EQL scon_comm 
BEGIN 
: A command. Insert directly into .RNT file 
pus ((.len, CHSPTR (.tociob Ciob$a_data]))); 


ELSE 
BEGIN 
: Text to be inserted into the RNT 
hl_n = 1; ! Treat as HL 1 


S - Table of Contents form 


4 
never pronren Etec MOSHE HMSO) SHUN ASAE 


ransportable entry point 


MIPIM a OOO 


So 
S333 
AN FWR 0 OOVNOAUE WN — O OONOAUES WN “CO OONAUES WR" OVDOVNOUSWA OVO On~’ 


SSSR 


sss 
BREE EEE FE PW 


i. 
16 
16 
16 
16 
se 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 


DAA III 09 09 “09 09 09 09 SIN I II 09 09 09 0": 09 09 09 09 09 09 09 08 SININISIISINNNNS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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pele jojolojelelejejlejloelololo) 
PRONONONY o 
WN OOOO USWN 0 0O~ 


WImannvw 


IF -type EQL scon_txt THEN toc_page = true; 


i Set minor code to unnumbered HL so OUTSEC 
won't generate a section number. 


minor = min hl_txt_u; 

; Initialize formatting parameters 

clrline (); 

extlin = .indents [0]; 

Line_indent = .indents (0); 

i Call OUTSEC to indent Line to proper point 


outsec (); 
wrap = .extlin; 


IF ,toc_page 
THEN vali 
BEGIN 
Generate page number to get its length 
ptrpag = CHSPTR (txtpag); 
co -cmdblk Ccontents$v_standard_page] 
2 enpas = pacbas (.pagen Csct_run_page], ptrpag, 10) 
lenpag = pacpag (pagen, ptrpag); 
END 
SE 
Lenpag = 0; 


rmargin = .cmdblk contents$9_page width] - .lenpag - 1; 
fmttxt (.len, CHSPTR (.tociob Liob$a_data])); 


IF .toc_page 
THEN es 


BEGIN 
insref (); 
toc_page = false; 


ff, .tadbih Ccontents$v_tms11] THEN write_char (%C‘a'); 


put ((.intlin, CHSPTR (Line))); 
clr_line (); 

Lasthl = .hl_n; 

ND; 


a | 


n 8 
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4 

5 Cscon_exal: ! Insert with examples 

§ Ob_ptr = exiob; 

8 Cscon_fig]: ! Insert with figures 

2 iob_ptr = fgiob; 

1 Cscon_tab]: ! Insert with tables 

§ iob_ptr = tbiob; 

4, TES; 

5 


IF (.iob ptr NEQ 0) 
o> pte (new captions) 


BEGIN 
i SEND CONTENTS is to be inserted with FIGURES, TABLES 
or EXAMPLES. Write record to appropriate temp file. 
CAL 
record_header : VECTOR (3); 
record_header Ht} = .major; 


Eat ek ek tal et 


WN O08" AUS WN CO OONOUSWN—O0O®W 


record_header (1) = .minor; 
record_header (2) = .Llen; 
$xpo_put (iob = .iob_ptr, binary_data = (3, record_header)); 


IF _ .len NEQ 0 
THEN 


$xpo_put (iob = .iob ptr. 
Binary_data = (CASALLOCATION (.len), .tociob CiobSa_data])); 


Be Se Se Se Se Se Se Be Se Se Se Se Se Se BH Ge Fe Se Ge Ge Se Ge Ge Se Ge Ge Se Se FF oe Se Se Ge Se Se Se Ss Ge Se FHSS Se Se Se Se Sse Se Se ee FeSse ete Sees Se ee 
ee ee a a a a a ee a ee a ee ee ee ee a ee ed ed a ed a 
WAV MAMUIVIVIVIT 


PUPP PPPS SST STITT ES BS BS TION OD AAPA AAA AAO Our 


END; 

END; 
06 
06 bomeior EQL maj_send] : 
be BEGIN 
064 Process text given on a .SEND command 
066 i NOTE: When the user said .SEND TOC n,text the value of ‘'n'’ 
067 ' was written to the file too. It is now available as 
068 ' the value saved in minor. If the user didn't 
st } specify n, then 0 was passed. 
o71 704 NOTE: The value of "'n' has the following meanings: 
$78 706 i 0 insert directly into .RNT file 
074 70 ! 
075 708 ' 1 Example caption ; . 
076 709 ' -1 insert directly into .RNT file with 
4 v9 example captions. 
$75 rie i 3 Figure caption ; 
080 71 ! - insert directly into .RNT file with 


9 
CONTENTS ONTENTS = Table of Contents formatter program bese -1984 00:01:0 AX-11 Bliss-32 V4.0-742 Pa 
you~600 OC = Transportable entry point — 12-88-13 90:98:08 RUNOFF -SRCICONTENTS .BL 1:1 - 3 
108) 4 example captions. 
1 g q ; Table caption 
1084 71 - insert directly into .RNT file with 
1085 4 table captions 
7 n>3 Caption with no title or lead-in 
7 -n insert directly into .RNT file with 
7 +n captions 


Captions are parsed for a leading word followed by a 
comma. This word is used for the figure number. 
Captions are treated Like header levels in that they 
are followed by dots and the chapter-page number. 


OCAL 
ptr; 


' 
i 
' 
' 
| 
i 
L 


WWWNIWIPornonononponororornoerns 


errcnt = 0; ! Reset count of CONFUSED messages. 
Determine the number of characters specified on the .SEND command 


$xpo_get (iob = tociob, fullwords = 1); 
txtlen = .(.tociob Ciob$a_data]); 'Save text Length. 


If there was text given process it. 
if .txtlen GTR 0 
THEN 

BEGIN 


i There was text given. 
Now actually read the text 


LOCAL 
record_header : VECTOR (3); 


$xpo_get (iob = tociob, fullwords = CHSALLOCATION (.txtlen)); 
record header = maj send; 

record_header [1] = .minor; 

record_header (2) = .txtlen; 


IF _.minor EQL 0 
BEGIN 
Insert text directly into .RNT file 
insrnt (.txtlen, CHSPTR (.tociob CiobSa_data])); 


ELSE 
BEGIN 


| Miscellaneous caption or send 
LF (ABS (.minor) GTR 3) OR ((ABS (.minor) LEQ 3) AND vfycap (old_captions)) 


SOONA UES WN OOONO MEW O ODNOAUE WN OOONC EWN OOWODNOUS 


DPD PPPs BB BE BE AIA 


AOA 


AWA IAP PIPOPIPONONPIPINIDYD 3 2 OO OS SH DOOD OOCOOCOCOCOOOO 
UPWN— 


O0O0000MMO 


ee ee ee ee ee ee ee ee ee eee eee 
Sa ii i ies in SS i i ee ee ee 


a kk tk kk dd od od 8d 8 8 8d 2 3 2 ts tO OOOO OOOO OOOO 


ee ee ee a ee ce a el ee el ce eel ee ee ee el el ce ee el el el el ce cel cel el eel el el el ee el el el el el el cl el el el cel el eel eel eel 


Sees 


~ 
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EGIN 


Not a figure, table or example caption 
OR a figure, table or example gags ion 
and we're using old style (SEND TOC) captions 


nxtstc = MIN (ABS (.minor), .nxtstc); 
$xpo_put (iob = stciob, binary_data = (3, record_header)); 
$xpo yes (iob = ate lee 
Binary_data = (CH ALLOCATION (.txtlen), .tociob Ciob$a_data])); 


END; 
END; 
END; 
COTHERWISE) : 

BEGIN 

errcnt = .errcnt + 1; 

a -errcnt LEQ 5 
ZIF XBLISS (BLISS32) 
X THEN 


co 


T 
? 
5 
5 
5 
5 
5 
5 
5 
5 
> 


SEL SE SIGNAL (contents$_invrecord, 1, tociob Ciob$t_resultant]); 
$xpo_put_msg (severity = verning 
string = $str_concat (‘inva id record group in file '*', 
tociob Ciob$t_resultant], '''')); 


ccce 


XFI 


; 
; 
; 


END; 
TES; 


END; 


4 
4 
4 


5 


END; 
' 
Finished processing file. 
id -cmdblk Ccontents$v_log] 


SOONOMNE WIN (OO ONAOU EWN OOONAUE WN O OONOUES wn 


09090909 SIN NS NN SNP PAA AAA AAA MMIII BB EPP EE 


oo 
Lee SSS RNS SANS RAN SOO SOF WN ODO NOU Ul ODO NOME Ui Ooo 


EN 
es (BLISS32) 
SIGNAL (contents$_complete, 1, tociob Ciob$t_resultant]); 


OOONOULS Ww 


ZELSE 
$xpo_put_msg (severity = success, . f 
String = $str_concat (‘processing complete ‘*', tociob Ciob$t_resultant], ‘''')); 


cce 
MIRO a 


tFI 


Supe close (iob = tociob); ' Close input file 
pe rues true; guccegs Ful completion (by definition) 
; ! End o 
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contents FeaTents - Table of Contents formatter program 1 
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on 


9 
w$2p=1984 19:05:4 
BYTE 14 


o7 
sADDRESS P.AAC 
SSTRSSTRING: 
«WORD 4 
14, 1 


-BYTE 
sADDRESS P.AAD 
SSTRSSTRING: 
-WORD 4 
14, 1 


-BYTE 

sADDRESS P.AAE 
SSTRSSTRINGO: 

«WORD 


-BYTE 4, 1 

sADDRESS P.AAG 
SSTRSSTRING: 

«WORD 6.1 


-BYTE 

sADDRESS P.AAI 
SSTRSSTRING: 

«WORD 


-BYTE 4, 1 
»ADDRESS P.AAJ 

SSTRSSTRING: 
«WORD 
-BYTE 4, 1 
sADDRESS P.AAK 

SSTRSSTRING: 
» WORD 7 


-BYTE 

sADDRESS P.AAL 
SSTRSSTRING: 

«WORD 


+ ADDR 
SSTRSSTRING: 
- WORD 
- ADDR 
SSTRSSTRING: 
«WORD 
- ADDR 
SSTRSSTRING: 
«WORD 
-BYTE 4, 1 
»ADDRESS P.AAR 
SSTRSSTRINGO: 
- WORD 
«BYTE 


H 4, 1 
sADDRESS P.AAT 
SSTRSSTRING: 

-WORD 6 
14, 1 


-BYTE 
-ADDRESS P.AAZ 


CONTENTS.BLI;1 
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TOC = Transportable entry point — 132808=1 382 90:93:28 RUNOFFeSRe CONTENTS coe gs1 — 3} 


coe 


10B$= TOCIOB 
10B8$= TOCIOB 
10B$= TOCIOB 
10B$= TOCIOB 
10B$= TOCIOB 
10B$= TOCIOB 
10B$= TOCIOB 
10B$= TOCIOB 
10B$= TOCIOB 
10B$= TOCIOB 
10B$= TOCIOB 
10B$= TOCIOB 
10B$= TOCIOB 
10B$= TOCIOB 
10B$= TOCIOB 
10B$= TOC10B 
10B$= TOCIOB 
10B$= TOCIOB 
108$= TOCI0B 
10B$= TOCIOB 


~-EXTRN DSRTOC$_BADVALUE 

-EXTRN DSRTOCS_OPENIN, DSRTOC$_OPENOUT 
~ XTRN DSRTOCS_VALERR, DSRTOCS$_CAPTIONS 
“XTRN DSRTOC$_CLOSEQUOT 

._XTRN DSRTOCS_CONF QUAL 


VI 
NVRECORD 
OMPLETE 


Vee OOO 
z 


SRTOCS_IDENT, CMDBLK 
00B, STCIOB, CNTVRL 


HL_N, HLLIST 
, MAJOR, MINOR 
PAGEN, NXTSTC, RNO EX 
FG, RNO_TB, TMS_EX 
TMS-FG, TMS-TB 
SFXSTR, LP, INTL 
EXTLIN, LINE 
TXTPAG, PTRPAG 


D 
D ~-PROCFILE 

-EXTRN DSRTOCS_TEXTD, DSRTOCS_*MS11 
CMDB 


— 
2 


XXX 0 
XPOSGET, XPOSFAILURE 
XST$COPY, STRSFAILURE 
XPOSPUT, XSTSJOIN 


TENTS = Table of Contents formatter program 1 
- Transportable entry point 


sous 


MOO OVP ™OVITN~ JO 


—= 
oO 


FPWMODONwoVMT SPOOF NIQOOw' S OF NM -SOVVIO VY NOW & NUNDOON MO Mmmmmn 
_ 
wn 


SNA RONN & MONIANIT DO MDOOAOWNMDAMLS ONO FS NO NMWOWNIMDOAMVOCOCOL TH nw 
09 9 SOFT 9 TNOT9 OOM "0909 OOP $99 “FCT OW "9 NOCD OODTWIM"MOOOO00On" 
FMW 1 "O00 MFO O00 OD MFO OOVUIW "AN FOSS DW MEO OCO OM rommmmma 


r 90:81:03 AX-11 Bliss-32 V4.0-742 


RUNOFF .SRCJCONTENTS.BLI;1 


-EXTRN XSTSASCII, XPOSCLOSE 


SCODES ,NOWRT ,2 


TOC, Save R2,R 


3,R4,R5,R6,R7,R8,R9,R10,R11 
KPOSFAILUR » RI 


10B+56, R2 
LE_1YPE, #=1 


WADWD TDDB 1 DBBVe—DWseB 


PDO COOWPO 


2), #2 

#4, 4(R2), 10B$+52 
#2. 10B$+54 

#6, 10B$+44 

R11 

Toss. 

is. XPOSGET 

R e 4$ 

#8, 10B$+52 


8 108$+54 
#6, 10B$+44 


XPOSGET 
MAJOR 
25, MINOR 
RG 
FILE_TYPE, #1 


MINOR, #3 
TOCIOB+28 


Pee Se Se Se Se Se Se Ge Se Ge Ge Se Se Se Se Se Ge Se Ge Ge Se Se Se Be Be Be Se Se Se Ss Se Be Se Se Be Se Be Be Be Se Se Fe Se Se Se Fe Se Se Se Be Be Se 


row 


0974 


1029 


1035 


1047 


00000000Vv 


000000006 
000000006 
E8 


000000006 
000000006 


000000006 
000000006 
E8 


S$ - Table of Contents formatter program 
ransportable entry point 


1 
000000006. BF 


02 


01 000000006 


i 


05 000000006 


o 
= 


m 
nn 
nn 
oOo ea] 
WOOMMOMMUIMOM VINVOOUNVAWMWOMmM 


0384 


DB NMWMWO "MOM MONMO FO MWONM MONINMLNWYT 


0 
000000006 EF 


0388 


UMAOMIOUWWM 
~om 


NWO 
NOOOUWIN VOOM = NOW OMD JOOouINn 


BC 


000000006 
000000006 


03¢0 


SOON ONOVWYTMEMOOoO,y 


“oont"oOn 


H 9 
rae 


38 99:93:28 ANNORFe Ske ConTtnt , 


$ 
$ 


oa 
wf 


OPFPue"Orouw"so —-— 
~ 
bed 


TH HH HMMmmMmmmo oO 


—OOOOCOCOCOOOCOCoO 


SLFom 


WMD OTT OWN OW 9099-9 OWT 9209-900 -9TOWwTT 
OOD LS £1 FW DNA N SS & MN BNIAN HS FON fF Oo 
—} dd 


OO 


m~noOol oO 
-on7"fLoom 
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st 4 4 — 4 — 4 — 4b — >) — — 9 = — 9 — ss — > > — ss = as as a an => — os sg as — a os =a — ss = ss ss os 


"1 
 eorante 


» #2 


NT 

CMDBLK, 13$ 
SFAILURE 

P) 


R8 
Syl Spernine 


#5, XSTSCOPY 
TMPSTR, RO 

RO, CHROUT 
$10BS0UTPUT. 10B$+68 
#7, 10B$+44 

R1 

=(SP) 


yes 
#3, XPOSPUT 
, gt ae 14$ 


15$ 
STRSFAILURE 
-(SP) 


SSeS e Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Be Se Se Be Be Se Se Ge Ge Se Se Be Be Be Fe Fe Fe Se Se Se Se Ge Se Se Se Be Se Se Be Se Se Se 


1091 
1093 


1098 
1100 


1103 


1105 


st api rd a 
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C = Transportable entry point 14-Sep-1 RUNOFF .SR 31 
58 DD OO1AA PUSHL R11 ; 
b4 1AC LRL. = (SP) : 
BC AD OF 1AE PUSHAB 1988 : 
000000006 EF re 1B CALLS #3, XPOSPUT : 
6A 1 €1 00188 BBC #1, CMDBLK, 15$ : 
000000006 EF 0 FB 001B CALLS #0, SPLIT : 
000000006 EF 9F OO1C3 15$:  PUSHAB STRSFAILURE + 1107 
D4 OO1C CLRL © =( SP) : 
58 DD 001¢B PUSHL R8 : 
03¢8 ‘ F 001CD PUSHAB $STRSSTRING : 
016A 31 00101 BRW 22$ : 
000000006 Ff D3 104 16$: —-‘TSTL Hi N + 1111 
0 1DA BEQL 17$ : 
000000006 EF 9F 0106 PUSHAB STRSFAILURE : 
D4 OOT1E CLRL = = (SP) : 
58 DD iE PUSHL R8 ; 
03D0 ¢ 9F O01E6 PUSHAB $STRSSTRING ; 
—E 11 OO1EA BRB ; 
000000006 i OF OieC 17$:  PUSHAB STRSFAILURE : 
: D4 OO1F CLRL © = (SP) : 
58 DD 001F4 PUSHL R8 ; 
0308 C7 9F 001F6 PUSHAB $STRSSTRING ; 
E D4 OO1FA 18%:  CLRL  -<SP) : 
000000006 EF 05 FB oF CALLS #5, XSTSCOPY : 
50 68 3¢ 0020 MOVZWL TMPSTR, RO ; 
000000006 EF 50 C0 00206 ADDL2. RO, CHROUT F 
69 68 3 00200 MOVAB $10BS0UTPUT, 108$+68 ; 
EB Ad 07 90 00210 MOVB #7, I0B$+44 ; 
5B Db 00214 PUSHL : 
7E 04 00 1 CLRL. = (SP) : 
BC AD 9F 0021 PUSHAB 1088 : 
000000006 EF 03 FB 00 1B CALLS #3, XPOSPUT : 
6A 01 £1 00222 BBC #1. CMDBLK, 19$ ; 
000000006 EF 00 F 00 6 CALLS #0. SPLIT ; 
0 20 AA DO 0022D 19$: MOVL INBENTS, RO : 1113 
5¢ 13 00231 BEQL 0$ ee 
ze b4 00 3 cLRL = = (SP) > 1145 
5 bo 0 3 PUSHL : 
7E 0903 8F 3C 00 MOVZWL #2307, -(SP) : 
000000006 EF FB 6 i CALLS #3, XSTSASCII ; 
0360 ¢ oF 024 PUSHAB $STRSSTRINGO : 
000000006 EF 02 FB 00249 CALLS #2, XSTSJOIN : 
000000006 EF 9F 00250 PUSHAB STRSFAILURE : 
0101 oF BB 00 § PUSHR #*M<RO,RE8> ; 
t D4 C CLRL oe ; 
000000006 EF 05 FB : CALLS #5, XSTSCOPY : 
0 $ 3C 0026 MOVZWL TMPSTR, R : 
000000006 EF £0 68 ADDL2 RO, CHROUT : 
69 : i MOVAB $10BS0UTPUT, 10B$+68 : 
EB Ag 9 MOVB #7, IOBS$+44 : 
B DD 0027 PUSHL 1 F 
. p4 7 CLR =(SP) ; 
000000006 EF BC 08 FB 00070 CALLS” #3. XPOSPUT 
07 6A 93 fe 84 BBC #1; CMDBLK, 208 : 


-—— 


CONTENTS CONTENTS = Table of Contents fornetter rogram 18-50 Sep-1 AX-11 Bliss-32 V4.0-742 Page 28 
you 500 TOC = Transportable entry point — et 7 99: gi 9 RUNOFF .SRCJCONTENTS.BLI;1 , (33 
000000006 EF 00 FB CALLS #0, SPLIT : 
000000006 cr 3 208 PUSHAB STRSPAIL : 1117 
8 D PUSHL R8 : 
0368 : oF 99 PUSHAB $STRSSTRING : 
D4 00290 CLRL 48?) : 
000000006 EF 05 FB 0029F ALLS # ah ; 
0 : ¢ A MOVZWL TMPSTR, R : 
000006006 EF A ADDL2 RO ; 
9 : B OVAB sToasourPUT. 108$+68 : 
E8 028 ove # $+4 : 
B DD 0028 PUSHL R11 ; 
: b4 89 CLRL. = (SP) : 
BC AD 9F O002BB PUSHAB 1988 : 
ee ge goss at'S Bie MORN ans 7 
000000006 EF 0 FB 002C9 CALLS 40. T ; 
000000006 EF 9F 00200 21$:  PUSHAB STASEAILURE + 1118 
D4 00 D6 CLRL ; 
58 DD 0020 PUSHL as ; 
03F0 ¢ OF 00 DA PUSHAB $STRSSTRING : 
E D4 00 DE 22$: CLRL =(SP ; 
000000006 EF 05 FB 002E CALLS #5, XSTSCOPY : 
000000006 er i 36 60 + nites Taste ony : 
69 48 4 002F1 OVAB #1 foanens 108$+68 ; 
E8 a9 07 90 002F4 OVB #7, I10B$+44 : 
5B DD 002F8 PUSHL : 
7E D4 OO2FA CLRL a ; 
BC AD OF OOZFC PUSHAB 1988 : 
000000006 _ EF 03 FB OO2FF CALLS #3, XPOSP : 
6A 01 £1 00306 BBC #1, CMDBLE 23$ : 
000000006 _ EF 00 FB 0030A CALLS #0, Pus LIT ; 
000000006 EF D4 00311 23s: CLRL sd + 1121 
03A4 gf D4 8 17 CLRL LASTHL : 1122 
A 11 0031B BRB : 1059 
53 000000006 i 00 00 1p 24$: MOVL MINOR, R3 : 1127 
07 5 D1 00326 CMPL Re #7 : 
02 12 00329 BNEQ 25$ : 
D6 00328 INCL RO : 
51 4 6 D 25$: CLRL ss R1 : 1128 
0D 53 (1 F CMPL = R3, #13 ; 
; 1 BNEQ 26$ : 
D INCL RY ; 
51 0 ¢ 26$:  BISL2 RO, R1 ; 
9 D4 00 CLRL. oR : 1129 
OA D} B CMPL  R3, #10 : 
: BNEG 278 ; 
D 4 INCL RO ; 
50 1 ¢ 42 27$: BISL2 R11, R : 
: D 4 MCOML Re. R + 1126 
50 CA 0034 BICL2 R5, RO : 
” § 9) bokee ee 
00000000v_ EF 0 FB 6 30 CALLS 40 PROCESS_ENTITY_INFO + 1135 
— 1 28$: BRB 36$ : 
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Conrenys CONTENTS - Table of Contents formatter program 18-Sep-1984 99:91:08 AX-11 Bliss-32 eat ot 


OC = Transportable entry point 14-Sep-1 RUNOFF .SRCJCONTENTS.BLI;1 
B DD 004 2 PUSHL R11 
5 4 004 CLRL. = (SP) 
cc «OA? OOF 004 PUSHAB $ 
9900 9 G EF 03 FB 004 CALLS # OSGeT 
0 G EF 04 D0 0041 MOVL 16¢108+56, HL_N 
67 A C7 4 A 4) MULW3 #4, HLCNT, 108$+52 
02 A? é 90 0041 MOVB > 108$+54 
FB OA? 90 004 MOVB #6. 10B$+44 
B DD 004 PUSHL R11 
g p4 4 CLRL = = (SP) 
CC «OA? OOF O042A PUSHAB 1088 
000000006 EF 93 Fe 42D CALLS #3, XPOSGET 
D4 004 CLAL 
OF 11 004 BRB 41$ 
51 04 B740 DE 00438 40$:  MOVAL a@T0C10B+56(1) 
00000000GEF4 FC =6A1 00 00430 MOVL  =4(R1), HLLIST-4C1] 
EC 5 03A0 C7 F3 00446 41$: AOBL Ea HLCNT, I, 40$ 
67 03a0  ¢ 4 A at MULW3 #4, HLCNT, 10B$+52 
08 A7 2 90 0045 MOVE #2. 10B$+54 
FB AT 6 90 00456 MOVB #6 $+4 
B DD 0045A PUSHL R11 
E D4 0045¢ CLRL = = (SP) 
cc 0 A?sOOF «0045E PUSHAB 1088 
000000006 EF 03 FB 00461 CALLS #3, XPOSGET 
0 D4 00468 CLAL 
OF 11 0046A BRB 43$ 
51 04 B740 D 046¢ 42$: MOVAL a@T0C10B8+56C1), R1 
00000000GEF 40 FC OAT «DO 00471 MOVL <-4(R1), HLDSP-4C1) 
EC 50 O3A0 C7 F3 0047A 43$:  AOBLEQ HLCNT, I, 42$ 
FeB2 31 004 BRW 1$ 
1 D4 00483 44$:  CLRL RI 
02 000000006 EF 01 0048 CMPL MINOR. #2 
Oe 12 048¢ BNEQ  45$ 
1 06 004 INCL RI 
50 4 04 458: CLRL = RO 
06 000000006 EF 01 00492 CMPL MINOR, #6 
08 12 00499 BNEQ  46$ 
D 00498 INCL. RO 
50 51 C8 0049D 46$: BISL2 RI, R 
53 3g D O4A0 MCOM Re. R 
50 3 CA 004A BICL2 R3. RO 
01 D1 004A CMPL RO #1 
03 13 004A BEQL «6s 4 7$ 
01¢c7 31 O4AB BRW 55$ 
0384 C7 D4 OO4AE 47$: CLRL  ERRCNT 
67 4 80 4B MOVW #4, 10B$+52 
02 A7 2 48 MOVB #2, 10B$+54 
FB AT 6 90 00489 MOV #6. 10B$+44 
B DD 004BD PUSHL R14 
E p4 O4BF CLRL. = = (SP) 
cc | OA?sOOF «00401 PUSHAB I 
00000006 EF 03 FB 004C4 CALLS # KPOSGET 
00000006 FF 04 B? DO 004C MOVL aTOCI0B+56, TXTLEN 
0 000000006 EF 00 0040 MOVL TXTLEN, RO 
9 13 OO4DA BEQL «84 
50 CO 0040¢ ADDL2 #3, R 
0 4 ¢€6 004DF DIVL2 #4. R 
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CONTENTS CONTENTS = Table of Contents formatter program 16-Sep-1984 00:01: AX-11 Bliss-32 V4.0-742 Pa 1 Ci 
G04 500 TOC = Transportable entry point “ee 1 ~300-1 387 90:92:93 RUNOFF .SRCJCONTENTS.BLI;1 = 3 Vi 
67 5 4 AS O04E MULW3 #4, RO, 10B$+52 ; : 
08 3 : $3 rhe MOVB =o #2, fobsese : ; 
FB OA? EA MOVB $+44 : ; 
B DD 004 PUSHL R14 : 
F ps 4F CLRL. ss = (SP) : : 
CC «OA? OOF O04F PUSHAB $ ; : 
000000006 EF 03 FB O04F CALLS #3, XPOSGET : : 
04 AA 000000006 FF D HY 48$: CHL HL AN. CMDBLK+4 + 1240 : 
0160 31 Og BRW 54$ : $ 
1¢ AA 000000006 EF D1 3¢ 49$: CPL HL_N, CMDBLK+28 + 1244 : 
41 6A 01 £0 31} BBS #1, CMDBLK, 50$ : 1245 ; 
000000006 cf F 0051 PUSHAB STRSFAILURE + 1247 : 
S& BD OOSIF SuSHL ROT 
03F8 C7 oF 0521 PUSHAB $STRSSTRING : ; 
: D4 00525 CLRL = =< SP) : : 
000000006 EF 05 FB 005 ? CALLS #5, XSTSCOPY : : 
000000006 éF 85 86 boss nite iste out : 
eg fe 85 3h 00558 ROVAS — S1OBtqUrPYT. 108868 
5B DD 0053 PUSHL 1 : : 
7E D4 00541 CLRL. = (SP? : ; 
BC AS OF 00543 PUSHAB 10B$ : : 
000000006 EF 03 FB 00546 CALLS #3, XPOSPUT : : 
7 6A 1 €1 0054D BBC #1. CMDBLK, 50$ : : 
000000006 EF 00 FB 00551 CALLS #0. SPLIT : ; 
000000006 EF 000000006 EF 9€ 00558 50$:  MOVAB. LINE, LP > 1252 : 
goeengoee fF Be Obst. im Jatt ; 
000000006 EF 20 AA 00 O03eF MOVL INDENTS, EXTLIN > 1260 : 
00000000G_ ‘EF 0 AA 00 005 7 MOVL  INDENTS, LINE_INDENT > 1264 ; 
00000000V EF 00 FB 0057F CALLS #0, OUTSEC : 1269 : 
000000006 EF 000000006 EF D0 00586 OVL €XTLIN, WRAP + 1273 : 
heempgatecdt Srempsemni A Tp Pete BBS #8 CROBLK Si : 158; 
OA DD 005a0 PUSHL #10 ; > 1288 : 
000000006 EF 9F 0542 PUSHAB PTRPAG : F 
7E 000000006 EF 3C 005A MOVZWL PAGEN+14, -(SP) : : 
000000006 EF 03 Fe Oar CALLS #3, PACBAS : : 
990000006 EF OF $88 51$ PUSHAB PTRPAG : 1295 : 
000000006 EF 9F 005BE PUSHAB PAGEN : ; 
00000006 EF 2 F C4 CALLS 2, PACPAG : : 
00000006 EF D CB 52$: MOVL. RO. LENPAG : ; 
AA 000000006 EF § D SUB! 3 LENPAG, CMDBLK+24, RO > 1301 : 
060000006 EF FF AO 9€ 005D MOVAB =-1(RO). RMARGIN ; ; 
coooooSsc fF $B RR 6 FU HRHOR Seg Bs) 
00000006 éF FB 3 ALLS «= #2,“ FMTTXT : ; 
00000006 EF F 3 ‘ALLS INSREF : 1309 ; 
C AE 000000006 EF e FA MOV)  INfLIN STRSSTRING > 1313 ; 
—E AE ‘ 02 MOVB #14, SSTRSSTRING+2 ; ; 
FOE 9 MOVB = #1, SSTRSSTRING+3 : : 
10 AE 000000006 EF 9€ O060A MOVAB LINE, $STRSSTRING+4 : : 
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53$: 


54$: 
55$: 


56$: 


57$: 


58$: 


p=19B¢ 19:05:48 


PUSHAB STRSFAILURE 
CLRL ae 
PUSHAB $STRSSTRING 


CALLS #5 XSTSCOPY 
MOVZUL TMPSTR, R 


DL2 CHROUT 
OVAB $10BS0UTPUT. 10B$+68 
MOVB #7, I0B$+44 
PUSHL 1 
CLRL = = (SP) 
PUSHAB 


1088 
CALLS #3, XPOSPUT 
BBC #1. CMDBLK, 53$ 
CALLS #0. SPLIT 
MOVAB LINE, LP 
INTLIN 


CLRL = EXTLIN 
MOVL HL_N, LASTHL 
BRW 1$ 

CLRL eR 

CMPL MINOR, #16 
BNEQ 56$ 

INCL = R1 

CLRL = RO 

CMPL “MINOR, #19 
BNEQ 573 

INCL. RO 

BISL2 R1, RO 

MCOML R2. R3 

BICL2 R3. RO 

CMPL sO, #1 

BEQL «6=ss«sS8$ 

BRW 61$ 


T 
TOC _PAGE 


10B$+5 
ae #2, 108$+54 


OVB #6, 10B$+44 
PUSHL R11 

CLRL = (SP) 
PUSHAB 1088 

CALLS #3, XPOSGET 
MOVW #4. IOB$+ 


~(SP) 
a 
CALLS #5, XPOSGET 
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CONTENTS CONTENTS = Table of Contents formatter program 1-50 -1984 00:01:0 AX-11 Bliss-32 V4.0-742 Page 33 
v04~000 TOC = Transportable entry point _— 12-80 8=1 382 99:03:83 RUNOFF .SRCJCONTENTS.BLI;1 . 3) 
5 04 87 FI MOVL TOCIOB+56, LEN : 1337 ; 
, 5 08 ers BLEG 58 : 1339 : 
; 03 A2 9E 006F MOVA (R2), RO : 1341 : 
; 4 C6 006FB DIVE #4, RO : ; 
67 9 4 A> 006 MULWS #4. R 1988+52 : 
08 A 2 3 ; MOVB ue, 108$+54 : 
FB OA? 6 ? MOVE #6, 10B$+44 : | : 
B DD O070A PUSHL R11 : ; 
: D4 0070C CLRL = (SP) : | : 
000000006 EF C08 FB OOF CALLS. AS” XPOSGET ; 
OC AE 2 BO 00718 598: NOVY LEN, SSTRESTRING : 1344 : 
OE AE E ats MOVB #14, SSTRSSTRING+2 : ; 
OF AE 1 9 07 MOVB #1, SSTRSSTRING+3 : ; 
10 AE 04 A? D0 00724 MOVL © TOC10B+56, SSTRSSTRING+4 : 
000000006 EF 9F 00729 PUSHAB STRSFAILURE : ; 
doonn0pgG EF OF Riel PUSHAB $STRSTARGET ; : 
18 OE be O0r8K aes 1S plas 
000000006 _ EF O> FB 0075¢ CALLS #5, XSTSCOPY ; ; 
02 4 02 90 Oorde NOVe FS. Lopses Bove; 
FB A? 06 90 O074A MOVE #6, 10BS+44 : 2 
3B DD OO74E PUSHL = R1f : : 
cc OAD OOF bone PUSHAB 10Bs. : 
000000006 EF 03 FB bores CALLS 8 XPOSGET : ’ 
52 04 87 D0 00756 Ov aTOC10B+56, LEN 1347 ; 
R S RABE Rie iia m foil Mie 
67 26 Ow AS 00769 MULWS #4, RO, I0B$+52 : ; 
02 A? 02 90 00760 MOVB #2, I0B$+54 ; ; 
FB OA? 06 90 00771 MOVB #6, I0B$+44 ; : 
5B DD 00775 PUSHL = R14 : : 
co OAD OOF Sores BUSHAB 1088. : 
000000006 EF 03 FB a977¢ CALLS Ns XPOSGET ; ; 
OC AE 52 BO 00783 60$ MOVW EN, S$STRSSTRI : 1354 : 
AE OE 90 Or? OVB #14, $STRSSTRING+ ; ; 
OF AE 01 90 00788 MOVB #1, SSTRSSTRING+3 : ; 
10 AE 04 AZ? DO 0078F MOVL TOCIOB+56, SSTRSSTRING+4 : ; 
000000006 EF 9F 00794 PUSHAB STRSFAILURE ; 
E D4 0079A CLRL = = (SP) ; ; 
000000006 EF 9F 0079 PUSHAB $STRSTARGET ; : 
18 OE bk OOrA ee | hee 
000000006 EF 5 FB OO7A CALLS #5, XSTSCOPY : ; 
Fab, BF OOTA BRW $ : 1059 ; 
‘ ; 
51 000000006 EF b0 iB 618: OVE MINOR 1 ; 1360 : 
1 D1 007BA CMPL ORT, #3 ; ; 
oo wpe es eee : ; 
O D4 OO7c] 628: —CLAL RO ; 1361 ; 
1 1 01 007¢ CMPL =o, #17 : : 
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CONTENTS CONTENTS = Table of Contents formatter program 16-Sep-1984 01:0 AX-11 Bliss-32 V4.0-742 Page 35 
you~ b00 TOC = Transportable entry point — 137808-1382 99:93:28 RUNOFF SRCICONTENTS -BL 1:1 . 3} 
000000006 EF £8 6 CALLS #5 KSTSCOPY ; : 
0 f MOVZWL TMPSTR, R : : 
000000006 EF ADDL2 RO cH OUT : ; 
9 F OVAB $168 OUTPUT, 10B$+68 : ; 
8 Ad 9A OVB #7, 10B$+44 : 
B DD 0089 PUSHL 1 : ; 
p4 A CLRL = (SP) : ; 
BC AS OF OOBA PUSHAB 1988 ; 
000000006 EF re A ALLS #3, XPOSPUT : ; 
6A 1 £1 OOBA BC #1. CMDBLK, 71$ : 
000000006 FF 9 FB 0088 CALLS #0. SPLIT ; : 
C 038 ; O88 71$:  —-BLBS TOC _PAGE 72$ : 1388 : 
000000006 FF 90000000" EF 3 ; 8 moves a. PsA N, aLP + 1390 : 
00000006 EF 05 cc ascr ADDL 4 INTLIN — : 
000000006 FF 90000000" EF 06 28 0808 72$: moves #6, PAO, aLP + 1392 
000000006 EF 06 ¢0 SoBe ADDL2 #6. INTLIN : ; 
0111 31 O08F2 73$: BRW : 1378 ; 
000000006 cf F OO8FS 74$:  PUSHAB STRSFAILURE + 1400 : 
; D4 008FB CLRL © =(SP) : : 
58 DD OO8FD PUSHL RB : ; 
0410 c? 9F OOBFF PUSHAB $STRSSTRING : : 
; D4 00903 CLRL = = (SP) : F 
000000006 Ef 05 FB 00905 CALLS #5, XSTSCOPY : ; 
0 68 3C 990¢ MOVZ2WL TMPSTR, RO : : 
000000006 _ EF 50 CO 0090F ADDL2 RO, CHROUT : : 
69 68 9E 00916 MOVAB $1OBSOUTPUT, 10B$+68 : : 
—E8 Ag 07 90 00919 MOVB #7, [0B$+44 : F 
5B DD 00910 PUSHL : : 
7E D4 0091F CLRL = (SP) : ; 
BC AS 9F 00921 PUSHAB I0B$ : : 
000000006 EF 03 FB 00924 ALLS #3, XPOSPUT : ; 
6A 01 €1 0092B BC #1, CMDBLK, 75$ : ; 
000000006 EF 00 FB 0092F CALLS #0, SPLIT : ; 
04 AA D5 00936 75$:  TSTL CMDBLK+4 : 1402 ; 
59 1 009 9 BEQL 78$ : ; 
woven Sh Te art peat = es" oo 
000000006 ai 9F 00943 PUSKAB STRSFAILURE : ; 
; D4 00949 CLRL © =(SP) : ; 
58 DD 00948 PUSHL R : : 
0418 c7 OF 0940 PUSHAB $STRSSTRING : : 
— 11 931 BRB : ’ 
000000006 ai 9F 00953 76$:  PUSHAB STRSFAILURE : : 
D4 00959 CLRL © =(SP) : 3 
5 pp 09 B PUSHL RB : : 
0420 ; F 0095D PUSHAB $STRSSTRING : : 
( D4 00961 77$: CLRL - : : 
000000006 EF 05 FB 00963 CALLS #5, XSTSCOPY : ; 
e0o000006 sf io dome BUSY ner chkott pas! 
69 e 390 MOVAB $10BS0UTPUT. 10B$+68 : | ; 
EB AD 96 00977 OVB #7, 10BS+44 : | : 
B DD 00978 PUSHL R11 : F 
E D4 0097D CLRL. = (SP) : : 


10 
CONTENTS CONIENTS = Table of Contents formatter program 15 $ep-1984 00:01:0 AX-11 Bliss-32 V4.0-742 Page 36 
v04-000 TOC = Transportable entry point —— 14- =Sep-1 3b 90:93:08 RUNOFF ..SRCJCONTENTS.BLI;1 . 3 
BC Ad 9F 0097F PUSHAB 10B$ : : 
omen Rie | Ree i: ERY" rm : : 
000000006 FF 0 FB 0098D CALLS #0, SPL : : 
0 20 AA 00 00994 78$:  MOVL INDENTS, RO + 1410 : 
3¢ 1 938 BEQL 9$ : : 
: D4 0099A CLRL 30s = (SP) + 1412 ; 
3 bD 99¢ PUSHL : ; 
7E 0903 BF 3C a5 MOVZWL #2307, <(SP) : ; 
000000006 EF 03 FB OO9A ALLS #3, XSTSASCII : ; 
: pp O9AA PUSHL RO : ; 
0428 § F OO9A PUSHAB SSTRSSTRINGO : ; 
000000006 EF 2 FB 009B CALLS #2, XSTSJOIN : : 
000000006 Ef 9F 099B PUSHAB STRSTAILURE : ; 
E 04 0098D CLRL = =( SP) : ; 
0101 or BB OO9BF PUSHR woM<RO, R8> : 3 
: D4 O9C3 CLRL SP) : ; 
000000006 EF 05 FB 009¢ CALLS #5, XSTSCOPY : ; 
0 $8 3¢ 009CC MOVZWL Ti PST TR RO : ; 
000000006 EF 0 (CO O09CF ADDL2 OUT : : 
69 68 oe 00906 MOVAB $1éB$0UTPUT, 10B%+68 ; F 
EB Ag 07 90 00909 MOVB #7, I0B$+44 : : 
5B DD 0090D PUSHL : ; 
7E 04 O09DF LRL ose) : ; 
eC AD 9F 009E1 PUSHAB i : : 
000000006 EF 03 FB 009E4 CALLS #3, XPOS$PU : ; 
7 6A 01 €1 009EB BBC "1. ERDBLK. 79$ : ; 
000600006 EF 00 FB OO9EF CALLS #0. SP : : 
000000006 _ EF 20 AA DO 009F6 79$:  MOVL  INDENTS "LINE INDENT + 1414 ; 
000000006 EF 18 AA DO OO9FE MOVL § CMDBLK+24, RMARGIN + 1415 ; 
O3A4 C7 D4 00A06 80$:  CLRL LA STHL > 1421 ; 
000000006 EF D4 OOAOA CLRL + 1422 ; 
50 000000006 FF DO 00A10 MOVE MINOR RO : 1424 : 
- 88 33 OOAIA cat, ie 
15 30 D1 OOAIC CMPL RO, #21 > 1425 : 
03 12 OOAIF 81$:  BNEQ 82$ : ; 
00c0 31 00A21 BRW 92$ : 3 
03 50 D1 00A04 82$: CMPL RO, #3 > 1431 ; 
03 13 00A27 BEQL : : 
11 0 Di 00A29 CMPL RO, #17 + 1432 3 
16 if OA2C BNEG : : 
08 6A 01 : OACE 83$ BBC #1, CMDBLK, 84$ : 1438 : 
00000000' Ff F OA PUSHAB P.AAV + 1440 : 
6 11 00A BRB 85$ : ; 
00000000' ai OF OA A 84$:  PUSHAB P.AAW > 1442 ; 
8 DD OOASO 85$:  PUSHL #8 : : 
14 11 O04 BRB ays : ; 
08 A 01 FI OA4 86$: BBC #1, CMDBLK, 87$ + 1450 : 
00000000' Ff F OOA48 PUSHAB P.AAX : 1452 : 
6 11 DAG BRB Ba$ ; 3 
00000000' EF 9F OOASO 87$: § PUSHAB P AAY > 1454 ; 
9 DD OOA 6 8$:  PUSHL : : 
000000006 EF 2 FB OOA58 89$: CALLS * FMTTXT : ; 
0 000000006 FF 30 A F NOV ZL PR STR, RO > 1461 : 
000000006 EF DD OOA PUSHL PRESTR+4 > 1463 : 


] 
| ¢ 
Page 37 v 
F 10 , AX-11 Bliss-32 V4 0-742 3 
=3ep-1984 00:01:0 TENTS.BLI;1 
CONTENTS = Table of Contents formatter program 10-85-1984 9:05 88 RUNOFF. SRC JCONTE 
contents TOC = Transportable entry point 5 tee PUSHL R rTet : 1468 ; 
83 FB Ang hovaa. Txfsct. PIRSCT 1469 : 
Soooooveg EF 300998008 EF $F Oake | PUSHAB prRSeT 
PUSHAB : i 
0000006 EF 9F O0A CALLS #2, PACSEC : 1470 
00000006 EF § fB BOAR MOVE ett ; 
Soooo0le EF BO 00a Pushas Txfsct 
Soo0000G EF DD Ny CALLS HON ERTTXT : 1475 : 
000000006 F Oe fe DAA MOVZWL SFXSTR, RO : 1477 ; 
0 000000006 FF 3 OAs BEG, 91S 
See a oe a0ACb CALLS #2, FATTXT one ; 1479 : 
K, Py 2 
000000006 EF of ED ac? 918: BBS” AT, CHDBL ; 
0 NCL LP ‘ : 
000000006 FF Ae EF De OOADe INCL renin Ee 
seen AC te eee : : 
6A 68 93$: MOVB #64, ; : 
"* goooo000G FF 806 EF be OOAFO INCL = LP 1488 
Sooo0000g EF be OoarS A hg 
000000006 4 80 QOAFC 948: OVW o3° 1oessed : : 
tf 02 90 OOAFF MOVE «#8. fopseae 
03 A7 06 90 00803 MOVB ait ; : 
F A7 DD bong? PUSHL ) ¢ : 
a a a! uae] | 
000000006 EF es FB DOB0e move atéclosess, TXTLEN 3; 1494 ; 
B7 XTLEN, ; : 
po0nn00% $0 000000006 i PO 00810 BLEG 238 ; 1496 
BSE ADDL : 
3 04 AS 00B2C MUL 3° 108s+54 : 
30 0830 MOVB , +44 3 : 
wid 02 A? Be By pea MOVB 108$ 
FB A? 38 DD O0B38 Pus RIT 
7E D4 OOBSA PUSHAB 10B$ : : 
OR TEE BRE Ui ances 8) 
, 000000006 EF 0; ED 646 958: BBS INBENTS¢4,“INDENTS, 6 
RA 24 AA CMPL = oRO, EXTL 
© 0000806 tf 36 0} 33 BLE 96 ag 
56 000000006 FF ¢2 00B59 movcS #0, (SP), #32, RG, ; 
56 20 “ 00000000G FF ¢ 94 ADDL2 6, We TLIN : 
00000006 EF $68 BRees ADDLg RG, INTLIN 4505 
Soobe008 EF 8 £0 OOBT8 pre Ps Te teas : 1507 
00000006 EF EF 00 O0B7E 96S: MOVE’ EXTLIN, WRAP. 1313 
00000006 34 seoateate ¢7 F9 OBA MOVAB TXIPAG. BIRPA ‘ 3 151 
000000006 EF 000000006 FF SE O0BEF BBS #3, CMOBLK, 
18 
| 


— eee 


10 
CONTENTS CONTENTS = Table of Contents formatter program 18-5¢ -1984 00:01: AX-11 Bliss-32 V4.0-74 P 
vO0500 TOC = Transportable entry point _— 1 =3e0 71382 99:03:88 RUNOFF. SRC CONTENTS OL fs1 7 3 


OA DD 0089 SHL #10 ; 1517 
990000006 EF BA PUSHAB PTRPAG : 
VZWL N+ - : 
7E G EF 3C OOBA6 MOVZWL PAGEN+14, =(SP) 
000000006 EF ; Fé BAD CALLS #3, PACBAS : 
900000006 EF BB6 97$: PUSHAB PTRPAG : 1519 
G EF 9F 00BB PUSHAB PAGEN : 
00000006 EF ‘ FB OOBC CALLS #2, PACPAG : 
000 0096 EF DO OOBCS 98%:  MOVL RO. LENPAG ; 
50 18 AA 000000006 EF i B00 SUBL3. LENPAG, CMDBLK+24, RO + 1521 
000000006 EF FF AQ — 008D v =1(RO), RMARGIN : 
4 A? DD OOBE1 99$: PUSHL  TOCI0B+S6 + 1527 
000000006 EF DD O0BE4 PUSHL TLEN 
000000006 FF Og FB OBEA CALLS #2, FMTTX : 
D 03A8 ¢ E9 OOBF1 LBC  TOC_PAGE, 100$ : 1529 
000000006 EF 2 FB OBr6 CALLS #0, INSRE : 1535 
0508 f8 OT boron LAL 19K PAGE : 1839 
14 6A 91 él Oco3 100$: BBC #1, CMDBLK, 101$ + 1541 
000000006 FF 40 8F 90 00C07 MOVB #64, @LP : 
00000006 Ef D6 OOCOF ING —soLP : 
0000000G EF D6 00C15 INCL INTLIN : | 
OC AE 000000006 Fr 80 oci8 101$: MOVW  INTLIN, $STRSSTRING + 1547 
OE AE E 90 00¢ MOVB #14, $STRSSTRING+2 ; 
OF AE 01 90 00C27 VB = #1, SSTRSSTRING+3 ; 
10 AE 000000006 EF 9€E 00C 2 MOVAB LINE, $STRSSTRING+4 ; 
000000006 Er F 0c ; PUSHAB STRSFAILURE ; 
43 DD 00C3B PUSHL RB : 
18 AE 9F 00C3D PUSHAB $STRSSTRING ; 
43 D4 00C4 CLRL = : 
000000006 EF 05 FB b0¢4 CALLS #5, XSTSCOPY ; 
0 68 3C 00C4 MOVZ2WL TMPSTR, RO ; 
000000006 EF 50 CO doce ADDL2 RO, CHROUT ; 
69 66 3 OCS OVAB $10BS0UTPUT , 10B$+68 : 
—E8 Ag 07 90 00¢56 OVB #7, 10B$+44 ; 
5B DD OOCSA PUSHL R1 ; 
ze p4 0csc CLRL. = (SP) : 
BC AD OF OCdE PUSHAB $ ; 
000000006 EF 03 FB Océ CALLS #3, XPOSPUT ; 

7 6A 01 €1 00C68 ¢ #1, CMDBLK, 102$ ; 
000000006 EF 00 FB Oc6¢ CALLS #0. SPLIT ; 
000000006 EF 000000006 EF 9 00C73 102$: MOVAB. LINE, LP + 1548 

$33888888 Re ane A dat : 
41 A 6 ty CBA BS #1, CMDBLK, 103$ : 1552 
000000006 EF F 00C E PUSHAB STRSFAILURE ; 
D4 90C LRL = = (SP) F 
58 0D C96 PUSHL R8 F 
0430 C 9F 00C9 PUSHAB $STRSSTRING ; 
: D4 00C9C CLRL = = (SP) : 
000000006 EF 05 FB cg CALLS #5 XSTSCOPY ; 
0 : 3 CA MOVZWL TMPSTR, R ; 
000000006 EF CA ADDL2 RO, CHROUT ; 
69 t CAF OVAB $108S0UTPUT. 10B$+68 ; 
EB Ag CBe OVB #7, 10B$+44 ; 
B 0D 00CB PUSHL R1f ; 


H 10 
CONTENTS CONTENTS = Table of Contents formatter program 16-Sep-1984 00:01: AX-11 Bliss-32 v4.0-74 
vou~600 TOC = Transportable entry point te 12-800=1 382 99:03:88 RUNOFF. SRC CONTENTS OL 131 ‘tate 3 
oc «(5 be Spree stetaB Toss. ; 
ssoaeees. | PTS GARE Fi HRT tose : 
000000006 EF 9 FB C8 CALLS #0. SPLIT F 
F3 CCF 1038 BRW 1 + 1059 
04 i CD2 1048: CMPL R4, #4 + 1555 
3 CD BEQL 1038 : 
02A8 CD BRW 124$ : 
55 900000006 EF %3C OOCDA 105$: MOVZWL MINOR, TYPE : 15 
4 0006 EF CE1 MOVZWL MINOR4+2, POSITION : 156 
67 4 : CEB MOVW 64, 1088+5 : 1568 
02 AZ 2 CEB MOVB #2. IOB$+ : 
FB OAT 6 90 OOCEF MOVB #6, [OB$+44 : 
B DD OOCF PUSHL R14 : 
E b4 OCF CLRL. = (SP) : 
CC A? OF OOCF PUSHAB 1988 ; 
000000006 Ef 03 FB OOCFA CALLS # KPOSGET : 
2 04 B87 DO 00001 MOVL  a@TO0CI0B+56, LEN + 1569 
21 15 00005 BLEG  106$ + 1571 
50 03 A2 9E 00007 MOV 3(R2), RO + 1573 
50 4 C6 0008 DIvL2 #4, RO ; 
67 50 4 A DOE MULWS #4, RO, 10B$+52 : 
02. A? 2 90 0001 MOVB #2, 108$+54 : 
FB AZ 6 90 00D16 MOVB #6, IOB$+44 ; 
B DD OODIA PUSHL R14 : 
g b4 OD1C CLRL = (SP) ; 
CC 6A? OOF OODIE PUSHAB 1088 : 
000000006 EF 03 FB 00021 CALLS #3, XPOSGET ; 
01 54 D1 00028 106$: CMPL POSITION, #1 : 1578 
03 13 00D2B BEQL  107$ : 
0188 31 00D2D BRW 118$ : 
53 04 00030 107$: CLRL JOB PTR : 1583 
01 55 D1 00D ¢ CMPL TYPE, #1 : 1585 
54 12 00D BNEQ  109$ ; 
OC AE 52 BO 00037 MOVW LEN, S$STRSSTRING + 1591 
OE AE 0€ 90 00038 MOVB #14, SSTRSSTRING+2 : 
OF AE 01 90 00D3F MOVB = #1, SSTRSSTRING+3 : 
10 AE 04 A7 DO 00043 MOVL  TOCIOB+56, $STRSSTRING+4 : 
000000006 cf OF 0048 PUSHAB STRSFAILURE ; 
; D4 00D4 CLRL (SP) F 
5 BD 0D PUSHL R8 : 
18 AE 9F 00D PUSHAB $STRSSTRING : 
43 D4 00D CLRL = =< SP F 
000000006 EF 05 FB 00D CALLS #5, XSTS$COPY : 
0 é 3 D : MOVZWL TMPSTR, RO ; 
000000006 EF c O06 ADDL2 RO, CHROUT : 
69 3 68 OVAB $10BS0UTPUT 10B$+68 ; 
E8 Ag 90 00068 MOVB = #7: LOBS+44 : 
B DD DGF PUSHL R11 : 
F p4 D CLRL. = (SP) ; 
BC Ad 9F 0007 PUSHAB 1988 : 
000000006 EF 3 Fe D7 CALLS #3, XPOSPUT : 
6A 1 €1 00070 BBC #1, CMDBLK, 108 : 
000000006 EF Q Fe 081 CALLS #0. SPLIT ; 
0182 31 00D 1088: BRW 121$ : 1585 
000000006 EF 1 DO 00088 109$: MOV. #1, HL_N : 1598 


22 ee 
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10 
CONTENTS CONTENTS = Table of Contents formatter program 1b-3e -1984 00:01: AX-11 Bliss-32 V4.0-74 Pa 4 
vou~500 TOC = Transportable entry point “thi: 1 =30P 138% 99:03:88 RUNOFF. SRC CONTENTS U4 51 - 38 
02 09 CMPL =e TYPE, #2 : 1600 
: ° D BNEO 1108 : 
0 £0006 4 4 BS bose 1108: Rov ¥o° MAMAN : 1605 
itd 88 G EF 006 EF oe OVAB LINE, LP + 1609 
G EF D4 OODAE CLRL —sCNTLIN : 
G EF 04 00DB4 CLRL = EXTLIN : 
99 0 G EF AA D6 DBA MOVL  INDENTS, EXTLIN + 1610 
0 G EF AA 00 00DC2 MOVL ‘INDENTS, LINE_INDENT + 1611 
0000000V EF 00 FB OODCA CALLS #0, OUTSEC + 1615 
enenness soot eaBe EF PD poppe Rov, GRILIN, WRAP : 1818 
000000006 EF 0000000 G EF H BoE MOVAB TXTPAG, PTRPAG + 1624 
18 6A 3 €0 OODE BS #3, CMOBLK, 111$ : 1626 
A DD OODF PUSHL #10 : 16 
900000006 EF 9F OODF PUSHAB PTRPAG : 
7E 000000006 Fr C OODF MOVZWL PAGEN+14, =(SP) : 
900000006 EF ; FB OODFF CALLS #3, PACBAS : 
13° «11 DE06 BRB ; 
000000006 EF 9F 00E08 111$:  PUSHAB PTRPAG + 1630 
000000006 EF 9F OOEOE PUSHAB PAGEN : 
000000006 EF : FB 0E14 CALLS #2, PACPAG ; 
000000006 EF D E18 112$: MOVL RO, LENPAG : 
06 11 OOE BRB 114 + 1618 
000000006 EF D4 00E24 113$: CLRL_  LENPAG + 1634 
50 18 AA 000000006 EF ¢3 OOE2A 114$:  SUBL3  LENPAG, CMDBLK+24, RO + 1636 
000000006 EF FF AO GE OE 3 MOVAB =-1(RO). RMARGIN ; 
04 A? DD OOE3B PUSHL  TOCIOB+56 + 1637 
52 DD OOE3E PUSHL LEN ; 
000000006 EF 0 Fe 00E40 CALLS #2, FMTTXT ; 
OD O3A8 C7? CE OOE47 BLBC  TOC_PAGE, 115$ + 1639 
000000006 EF 00 FB 00E4 CALLS #0, ~INSREF : e4e 
O3A8 C7 D4 OOES CLRL ‘ TOC_PAGE > 164 
18 11 005 BRB 1168 + 1639 
14 6A 01 3 O0ES9 115$: BBC #1, CMDBLK, 1168 > 1648 
000000006 FF 40 8F 90 00E5D MOVB #64, aLP : 
990000006 EF D6 Q0E6S INCL LP : 
0000000G EF D6 OE 68 INCL INTLIN F 
OC AE 000000006 EF 80 0E71 116$: MOVW  INTLIN, $STRSSTRING + 1651 
OE AE E 90 00E79 MOVB #14, SSTRSSTRING+2 ; 
OF AE 7 90 O0E7D MOVB = #1, SSTRSSTRING+3 F 
10. AE 900000006 EF 9E OOE81 MOVAB LINE, SSTRSSTRING+4 ; 
00000006 EF 9F OOE89 PUSHAB STRSFAILURE : 
; D4 OOEBF CLRL =(SP) : 
5 BD £91 PUSHL R8 : 
18 AE 9F 00E93 PUSHAB $STRSSTRING : 
43 D4 E96 CLRL = = (SP) F 
000000006 EF 05 FB O0E9 CALLS #5, XSTSCOPY ; 
0 68 3 ESF MCVZWL TMPSTR, RO F 
000000006: EF 5 EAR ADDL2 RO, CHROUT ; 
69 : EA MOV $10BS0UTPUT. 10B$+68 : 
EB Ag EA MOVB #7, IOB$+44 : 
B DD OOEB PUSHL R11 ; 
D4 EB CLRL. = (SP) ; 
BC AD OF OOEB PUSHAB | ; 
000000006 EF 0 FB EB CALLS #3, XPOSPUT : 
07 6A 1 €1 OOEBE BC #1; CMDBLK, 117$ ; 


contents FouTeNTs = Table of Contents formatter program 1b-S00-1984 90:81:03 AX-11 Bliss-32 V4.0-742 Page 41 


- Transportable entry point 14-Sep-1 RUNOFF .SRCJCONTENTS.BLI;1 (2) 
900000006 EF 00 FB EC CALLS #0, SPLIT ; 
G EF G EF 3 ECS 117$: MOVAB LINE, LP t 1652 
G EF D4 OOED4 CLRL —sOINTLIN : 
G EF 04 OOEDA CLRL = EXTLIN ; 
O3A6 (7 G EF D0 FE MOVL HL N, LASTHL : 1953 
2 EE BRB 101$ + 157 
02 4 pf} £EB 118$:  CMPL POSITION, #2 + 1658 
07 EE BNEQ = : 
53 O2zac C7 H EF MOVAB FX10B, 10B_PTR + 1659 
16 11 OOEF BRB 21$ : 
03 54 D1 OOEF7 119:  CMPL POSITION, #3 + 1661 
07 12 OOEFA BNEQ 1208 ; 
53 00c6 «C7 5 EFC MOVAB Fg10B, 10B_PTR + 1662 
A 11 OOFO1 BRB 121$ : 
04 4 D1 00FO3 1208: CMPL POSITION, #4 + 1664 
05 12 OF 06 BNEQ 121$ ; 
53 0188 cf 9E OOF MOVAB TBIOB, 10B_PTR + 1665 
3 pS OOFOD 121$:  TSTL 108 PTR + 1669 
Oc 1 OOF OF BEQL 1228 ; 
1 DD OOF11 PUSHL #1 + 1670 
00000000 FF o1 FB OF13 CALLS #1, VEYCAP : 
3 Q E OFIA BLBS RO. 1238 ; 
F115 31 OOF 1D 1228: BRW 1$ : 
08 AE 000000006 EF 00 00F20 123$: MOVL = MAJOR, RECORD_HEADER + 1680 
OC AE 000000006 EE 00 OOF 28 MOVL MINOR. RECORD HEADER+4 : 1681 
10 AE 2 DO 00F30 MOVL LEN, RECORD _HEADER+8 : 1682 
6E 0c BO OOF MOVW #12. $IOBSOUT + 168 
02 AE 02 $0 00F27 MOVB so, $10BS0UTPUT +2 : 
03 AE 01 90 OOF 38 MOVB #1. $IOBSOUTPUT+ : 
04 =A 08 AE 9E OOF3F MOVAB RECORD HEADER, $IOBSOUTPUT+4 : 
4a =A 6e 3 00F 44 MOVAB $10BSO0TPUT 68(108_PTR) : 
2c OAS 07 9 OOF 48 MOVB #7, 44(10B_PTR) ; 
5B DD OOF4C PUSHL R11 : 
7E D4 OOF4 CLRL. = = (SP) ; 
53 DD OOF 5 PUSHL 108 PTR : 
000000006 EF 0 i a8 CALLS 8 ‘ XPOSPUT ae 
13 00F5B BEQL ges F 
7 cb cO fae ADDL2 #3, R + 1688 
5 04 C6 OF DIVL2 #4, R : 
6E 5 4 AS O00F6 #4. R2, SIOBSOUTPUT : 
02 AE 02 90 OF6 MOVB #2. $IOBSOUTPUT+ : 
03 AE 01 90 OOF6B wOVB #1. $IOBSOUTPUT+ : 
04 =A 04 A? po rt MOVL ToC 108 6, SIOBSOUTPUT+4 : 
4a oA 6 . F74 MOVAB $108 OUTPUT, 68(10B_PTR) : 
2 90 00F78 MOV #7, 44(10B_PTR) : 
B OD OOF7C PUSHL R14 : 
ze D4 OOF? CLRL = (SP) : 
bp F PUSHL 108 PTR : 
0121 31 OOF BRW $ : 
03 4 D1 OOF8S 124%: CMPL 4, #3 > 1694 
: 13 F BEQL 1938 ; 
01 FRA BRW 133$ : 
0384 D4 OOFB8D 125$: CLRL  ERRCNT : 1732 
02 A? 3 $9 £94 ROVE #3: 10BSs54 Fades 
4 6 90 00F98 MOVB He 10B$+44 : 


<~ 
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CONTENTS CONTENTS = Table of Contents formatter program 16-Sep-1984 :01:0 AX-11 Bliss-32 V4.0-74 P 4 | 
you~ 800 TOC = Transportable entry point — 1 =3007 1382 99:03:28 ERUNOFF SRE COMTENTS BU ts 1 — (3 | 
58 po 90FC PUSHL R11 ‘ | 
co OAD OOF i setae 108s. : | 
900000006 EF 03 FB OOFA CALLS & KPOSGET F | 
00000006 FF 04 B? DO OOFAA MOVL  aTOC10B+ 6. TXTLEN : 1737 
0 000000006 EF D rBe MOVL TXTLEN, R + 1741 
4B 1 FB BLEG ¢6 : 
5 CO OOFBB ADDL2 #3, R + 1751 
67 5 rae ta ital pvts «4° RO. 1088052 ; 
08 A 29 £C MOVE 3s #2. fobs se : 
FB OA? 6 90 OOFC MOVB #6 10B$+44 : 
B DD OOFCD PUSHL R14 : 
5 ps OF CF CLRL (SP) : 
cc 360A? soOOF O0FD1 PUSHAB 10B$ : 
000000006 EF 03 FB OFD4 CALLS #3, XPOSGET : 
08 AE DO OOFDB MOVL #3, RECORD_HEADER : 1758 
50 000000006 EF D6 OF DF MOVL OR : 175 
Oc AE 0 DO OOFE6 MOVL RO, RECORD_HEADER+4 : 
10 AE 000000006 gf 00 OFEA MOVL  TXTLEN, RECORD_HEADER+8 + 1754 
9 D5 OOFF2 TSTL 86OR + 1756 
13° (12 OOF FS BNEG 127$ : 
04 A? OD OFFS PUSHL TOCI0B+56 + 1762 
000000006 EF DD OOFF PUSHL TXTLEN ; 
000000006 EF 2 FB OOFrE CALLS #2, INSRNT : 
FO c 31 01006 1268: BRW 1$ : 1756 
18 91909 127$:  BGE 128$ : 1769 
50 0 CE 01008 MNEGL RO, R : 
03 50 D1 O100E 128%: CMPL RO. # : 
0D 14 o1911 BGTR 129% : 
7E 01 CE 01013 MNEGL #1, <(S ; 
00000000v EF o1 FB 01016 CALLS #1. VFYCAP ; 
ES 0 €9 0101D BLBC RO, 1268 : 
0 000000006 EF bo 01020 129$: MOV MINOR, RO + 1777 
03 18 01027 GEG 4~=s«‘1:30$ ; 
50 50 CE 01029 MNEGL RO, RO : 
000000006 _ EF 30 D1 19 130$:  CMPL RO NXTSTC F 
07 15 010 BLEG 1318 F 
50 000000006 EF pd 010 MOVL §-NXTSTC, RO : 
000000006 EF 0 DO 010 ¢ 131$: MOVL RO, NXTSTC ; 
6E ¢ B 104 MOvW #12, $10B$OUTPUT : 1778 
02 AE : 90 01046 MOVB ae, $I0BSOUTPUT+ : 
AE 90 0104A MOVB #1, $IOBSOUTPUT+ ; 

4 AE 08 AE 9E 01 af MOVAB RECORD HEADER, SIO0BSOUTPUT+4 : 
000000006 EF E 3 105 MOVAB ${OBSOOTPUT. {08$+68 ; 
000000006 ‘EF 90 0105A MOVB #7, +10B$+44 : 

B DD 196 PUSHL 1 F 
E p4 106 CLRL. = (SP) F 
000000006 EF 9F 0106 PUSHAB 108$ : 
000000006 EF ; Fe 1 68 CALLS #3, XPOSPUT ; 
50 000000006 EF ¢1 01 ADDL3 #3, TXTLEN, RO + 1780 
: 4 6 O107A DIVL2 #4. R ; 
6E 5 4 AS 01070 MULWS3 #4. RO, SIOBSOUTPUT ; 

3 AE : 3 1081 MOVB te $16BSOUTPUT+ ; 

AE 1 2 MOVB SOUTPUT+ : 

a 04 A? p 1 MOVL TOCIOB+56, SIOBSOUTPUT+4 ; 
000000006 EF 6E 9E 0108E MOVAB $IOBSOUTPUT, 108$+68 : | 

| 
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000000006 EF 7 90 01095 MOVB #7, 10B$+44 ; 
B DD 0109¢ PUSHL R11 : 
E p4 1 Hi LRL. ss = (SP) : 
000000006 EF 9F 010A PUSHAB 10B$ : 
000000006 EF 3 tp ne 132$: CALLS ' ggXPOSPUT pees 
os BBE REE eT ea, . 
ig 14 01 HH BGTR : F 
ce tt OD O1Oen a Sasha 
000000006 8F DD O10BF PUSHL HDSRTOCS INVRECORD : 
000000006 00 3 £8 010C5 134$: CALLS #3, LIBSSIGNAL F 
EF 6 31 010CC 135$: BRW 1 + 1035 
a ow PRE Be fete: as 
1 DD 010D PUSHL : 
000000006 Br DD 1908 PUSHL HDSRTOCS COMPLETE ; 
pened PR 2 $6 O10es 1378: Rove” #2, foBseac ; 1825 
g¢ DD 01069 "  PUSHL oR ; 
7 D4 or EB CLRL. = (SP) : 
CC «A? «OOF O10ED PUSHAB 10B$ : 
snmp Bi GREED RAS ff ppoecos a 
04 O10FA RET ; F 
50 D4 O10FB 138%: CLRL RO + 1827 
04 O10FD RET : 


; Routine Size: 4350 bytes, Routine Base: $CODE$ + 0000 
| 
j 
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CONTENTS CONTENTS = Table of Contents formatter program 16-Sep-1984 00:01:0 AX-11 Bliss-32 V4.0-742 Page 4 

you 800 TOCINI = Inttietiontion Program Pn 8eem 1086 Tabs.) Endure SaeSconrents octet 9 3) 

311 1 8 1 ZSBTTL “Torn - Initialization’ 

3 35 1 1 ROUTINE tocini = 

: 1338 1850 1 !4¢ 

3 119 1831 1! | 

; : By : ¢ : } FUNCTIONAL DESCRIPTION: 

: } oe 1 ¢ ; This routine is called by toc () to do initialization. | 

: 1204 1 $ 1 i It cpens the input file and determines the input file type (BRN, 

3 ’ 05 ! i ! } BIC or invalid). 

: 1 $$ 1839 1 The output file, and several temporary files used to store 

3; 1208 1840 1! figure, table and example information are opened if they are not 

; 1209 1841 1! already open. If | are not already open, the command Line 

3; 1210 1 tg 1! text is prettied up for output to the output file and the output 

; : 1} ' rf : } file prologue is written. 

: 18 184s i FORMAL PARAMETERS: 

: ! 13 1847 None 

; HE 1848 i IMPLICIT INPUTS: 

: 1219 1851 CMDBLK - Command Line information block 

: 1281 1888 i IMPLICIT OUTPUTS: 

; 1358 1855 1 CMDBLK - Command Line is reformatted 

: 1224 1856 1! FILE _TYPE - Set to BRN_FILE if .BRN or MAJ_NEW_TOC if .BTC 

3 1395 1857 1! CAPTYP - Set to zero if output files not opened 

3 1226 1858 1! CAPMSG = Set to zero if output files not opened 

3 1227 1859 1! NXTSTC - Set to INFINITY if output files not opened 

: \¢s8 1860 1! CHROUT - Set to zero if output files not opened 

3 1 $3 1861 1! LASTHL - Set to zero if output files not opened 

3; 1230 1306 1! TOC 108 - Input file I0B 

: 1231 1863 1! TOCOOB - Output file | 

: ISe6 1864 1! STC108 - Send TOC temp file 108 

3 123 1865 1! FGIOB - Header figure temp file I0B 

3 1234 1308 1! T8108 - Header Table temp file 108 

3 \$32 1867 1! EX1I0B - Header irpcele temp file I0B 

: 1236 1868 1! LP = CHSPTR (LINE) 

: \s3f 1869 1! INTLIN - Set to zero 

3 : $ 1970 ! EXTLIN - Set to zero 

5 1240 1872 1 ' ROUTINE VALUE: 

3: 1241 1875 1 ! COMPLETION CODES: 

.s 4g 1874 1! 

PB 

: 45 i SIDE EFFECTS: 

t 1267 1 8 1 None 

: 1248 1880 1 !<- 

3 } rt ' 1 BEGIN 

+ 1251 1 : LOCAL 

3: 1252 1884 parse_block : $xpo_spec_block; | 
! 


Pl oe | 


— 
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0000090000 
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SOS 
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FSsSs 
Ww 


oe 


wvvvD 
ee ee a ee et a ed ed ed 


WOOO DOOVOW OOO ODOOOODOOOODODOVOODOOOODOOWOOOOOO 
FF AAAI NWA NAIA AIIRINPIPIPININPYNINIDYD 4 OO SS S OOOO 


ARAN OGG 


WAAL AIA AIP POPONUNIPINININY 


ts 


ee eS SS ee ee ee ee eee 


WAw 


oo 
ccc 


N 10 
Ratization ) ormatter Program tpngep=lobe (3:05:48 ERUNOFFoSReScONTE 


“ao 


CO C9 CD. C0 09 C9 C9 CD C9 CO. OD CD CD CD CD 


=ODODNO NEA OODNOUES WN $0 ODNOUES WN CO DDNANEWN I OODNAUEWNOODNOU 
—-2 

= 

im 


Tr | 
oo 


40-742 
NTS.BLI; 


zm 
-_ 


n 
: 
: Initialization 
clr_line 0; 
IF .cmdblk Ccontents$v_tms11] THEN cmdblk Ccontents$g_page_width] = tms_line_length; 
$xpo_iob_init (iob = tociob); 
IF NOT $xpo_parse_spec (spec block = parse_block, failure = 0, 
— file Spec = cmdbTk Econtentsst~input: tite) 
' 
! Parse failed. Set parse_block Cxpo$h_file_type] non-zero to force 
: quick open failure message. 
parse_block [xpoSh_file_type] = 1; 
IF .parse_block Cxpo$h_fil NEQ 
te i] xpo$h_file_type] NEQ 0 
BEGIN 
User specified a file type. Open file with no defaults. 


$xpo_open (iob = tociob, file spec = cmdblk Ccontents$t_input file], attributes = BINARY 
ziF XBLISS (BL 1g8355 THER . failure = open_error %FI a 


END 
ELSE 
BEGIN 


User did not specify a file type. Try .BRN first. 


cos attributes = BINARY, failure = 0) NEQ xpo$_normal 
BEGIN 
} No .BRN file. Try .BTC 

attributes = BINARY 

r- ZIF ZBLISS (BLISS32) ZTHEN , failure = open_error %F] 
END; 

END; 

J zcadblt Ccontents$v_log) 
iY EBLISS (BLISS32) 
SIGNAL (contents$_procfile, 1, tociob Ciob$t_resultant]); 


$xpo_put_msg (severity = success, 
string = $str_concat (‘processing file '*', tociob Ciob$t_resultant], '''')); 


ZELSE 


PPI INIPIAIMINININIG AE BEES EH&S FANN AINA IAI RIDIPUNINOPIPIPUIPIPPPONONPNoNonony 


IF $xpo_open (iob = tociob, file spec = cmdblk Ccontents$t_input_file], default = (".BRN'), 


$xpo_open (iob s tociob, file spec = cmdblk Ccontents$t_input_file], default = '.BTC', 


$xpo_iob_init (iob = tocoob); 
$xpo_open (iob = tocoob, file_spec = ee Ccontents$t_output_file], default = (4, .file_type), 
re ated = tociob Ciob$t_resultant], 


options = outpu 
ZI : ; 


XBLISS (BLISS32) XTHEN , failure = open_error %F1 


vv0v 


); 
i 
Reformat command Line before outputting. 
cmd_len = .cmd_line Estr$h_lengt 

cmd_ptr = .cmd—Line Estr$a-pointerd; 


WHILE NOT CHSFAIL (ptr = CHSFIND_CH (.cmd_len, .cmd ptr, %C°<')) DO 
CHSWCHAR (ZC°C', .ptr); '“Change ‘<* to 'C' 


WHILE NOT CHSFAIL (ptr = CHSFIND_CH (.cmd_len, .cmd_ptr, Palade dO 
CHSWCHAR (%C')' ) '"Cha te ‘3° 


cmd_line = cmdblk e potran-tengenyg 
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vou- 00 TOCINI = Initratication _— 13-88-1382 99:03:83 RUNOFF .SRC COMTENTS OL fs) 
; 1310 1308 XFI 
1a 194e IF NOT .tocoob Ciob$ } 
3 -to 
18 1945 a. coo ob$v_open 
21) a a 
; ' Qutpu e not open. 
3; 3 19 1949 ! Open it and do other once only initialization. 
: 1318 1950 ! 
£1306 1983 filet 
; e e, 
: 1321 1988 end Tine : REF $str_descriptor (), 
3 3 § 1954 cmd_len, 
7 1955 cmd_ptr, 
3 1324 1328 ptr; 
$ 13 5 195 
: 1359 1989 
: 1398 1960 eee itialization | ; 
: captyp = 0; ! No captions seen yet 
3 13$0 1906 capmsg = false; ! No message uritten 
: 1331 196 nxtstc = infinity; ' No .SEND TOC n's seen yet 
: 1336 1964 chrout = 0; ! No characters written to output 
; 1337 1oe7 lLasthl = 0; ! Previous HL level 
: 1335 1967 ; IF_.cmdblk Ccontents$v_tms11) 
: 1336 1968 THEN 
3 1337 1969 4 BEGIN 
; 1339 1998 4 nite t Mt CH$PTR (UPLIT (*.TMS')) jig the: us be 
: © e = oTMS'))s ! 
: 1320 +4 4 4 END ~ 6 ate ee 
3: 1341 1973 3 
3 1306 1974 4 BEGIN 
; 130 1998 4 rite t a. CHSPTR (UPLIT ('.RNT')) Jy He Fis tes 
3 e = » "paz 
1s 18 ei” Susie a 
; 1347 1979 ! 
3: 1348 1980 ! Open output file and save resultant file name 
3 1349 1981 ' 
3; 1350 1386 
; 1351 198 
3} ¢ 1984 
: 1384 1986 
> 1355 1989 
3 1356 1988 
3: 1357 1989 
; 1358 1990 
3: 1359 1991 
. 9 nee 
3; 1361 199 
3; 1 4 1994 
: 1 1995 
3 1364 1238 
: 1365 199 
3: 1366 1998 


=] 


. ptr); nge '>* 


ene 


Se) OOOO DOODOWDDOMWONANNANNNNNS 
OSONAUESWN —O ODONAUES WN OOONOUS WN 


WAWWAWAW AANA AWA 


wooonov0ono 


SELLS 


ec ce a ee ae ee a a a ce ee ee ee ee ee ed od ed ad od od 
SSSCSSs 
WEWN— 


Fe at at ot ot ot ot ot et et et ee 
ee ae ee ae en 


WN —OOONOULWN—OCOn 


ccccr 


ecececr 


PIP PPIPIPIPINIPIDNINININIPIPNINININININIPININIPYAINININININININININININININIPYNINPIPIPOPPIPYPIPIPIPIPINIPYUN) | — 4 


vuvvD 
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zm 
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WHILE NOT CHSFAIL (ptr = CHSFIND_CH (.cmd_len, .cmd ptr, %C';')) DO 
CHSWEHAR (%C'.', . ptr); !“Change ';* to '.' 
IF _ .cmdblk Ccontents$v_tms11] 
THEN 
: BEGIN 
4 Write the TMS prologue 
4 ZIF DSRPLUS 
: ZTHEN 
2 put ($str_concat ('< CONTENTS version ', (.cntvrl, .cntvrp), ' >')); 
: XELSE 
Q put ($str_concat ('< DSRTOC version ', (.cntvrl, .cntvrp), ' >")); 
: XFI 
4 put ($str_concat ("< ', cmdblk Ccontents$t_command_line], * >')); 
& put (‘*starte'); 
4 pur (‘ecinit*'); 
4 ND 
3 ELSE 
: BEGIN 
4 Write RUNOFF prologue 
4 ZIF DSRPLUS ~ 
: XTHEN 
2 put ($str_concat ('.! CONTENTS version ', (.cntvrl, .cntvrp))); 
; ZELSE 
? put ($str_concat ('.! DSRTOC version ', (.cntvrl, .cntvrp))); 
2 ZF I 
4 put ($str_concat ('.! *, cmdblk Ccontents$t_command_line])); 
4 put ("SAVE"); 
4 put ('.NO FLAGS ALL"); 
4 put ('.NO FLAGS BREAK «NO FLAGS CAPITALIZE «NO FLAGS ENDFOOTNOTE'); 
4 put (*.NO FLAGS HYPHENATE «NO FLAGS INDEX «NO FLAGS PERIOD’); 
4 put ('.NO FLAGS SPACE «NO FLAGS SUBSTITUTE'); 
4 put (".FLAGS ACCEPT «FLAGS BOLD * «FLAGS COMMENT !*°) 
4 put ('.FLAGS LOWERCASE \ -FLAGS OVERSTRIKE % FLAGS UNDERLINE &'); 
4 put ('.FLAGS UPPERCASE *°)3 
4 put (*.FLAGS ALL"); 
2 ous , FILL «NO JUSTIFY"); 
u 
4 7 $str_concat ( 
4 *.LEFT MARGIN °, 
4 $str_ascii (.indents (0)), 
4 ' -RIGHT MARGIN ', 


CONTENTS CONTENTS = Table of Contents formatter program Bese -1984 1:0 AX-11 Bliss-32 V4.0-742 Page 48 
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> 1424 P 4 $str_ascii (.cmdblk Ccontents$g_page_width]), 

; 1425 o 03 4 . ie AGE Size « * ng its: 

; 14 8 P 28 4 $str_ascii (.cmdblk Ccontents$g_page_width]) 

3 14 P 8 4 

: 1428 60 4 ); 

: 1429 $2) 4 

; 14350 § END; 

: 1431 $e 

: 14 § 64 ' 

; 12 ? bee } Open SEND TOC temp file 

: 1432 O37 iob_init — = stciob); 

: 1436 P 2068 $xpo_ 27P oak (iob = sreige file spec = ‘OCNTST.TMP', attributes = BINARY, options = output 
> 1437 P 2069 ISS (BLISS32) ZTHEN , failure = open_error %FI 

: 1438 070 H 

3 1439 071 ' 

3: 1440 072 Open figures temp file 

> 1441 073 

3 1ee6 074 begs. iob_init hig fgi 9b) 

3 144 P 2075 $xpo_ erp (iob = fa 98 file spec = 'OCNTFG.TMP’, attributes = BINARY, options = output 
> 1464 P 076 ZBLISS (BLYSS3S) XTHEN’. failure = open_error %F1 

3 1445 07 

> 1446 078 ‘ 

3 1447 079 i Open tables temp file 

3: 1448 saat i 

3 1449 081 $xpo_ iob_init a 5 : pbtey): 

; 1450 Pp oes $xpo eiPes (iob = ts pec = ‘OCNTTB.TMP’, attributes = BINARY, options = output 
> 1451 P 208 YBLISS (BLiss 2) TTHEN failure = open_error %F1 

3 a 084 

3: 145 085 % 

3: 1454 One i Open examples temp file 

3 1455 08 i 

> 1456 088 $xpo_iob_init yg *: pxtod): 

3 1457 P 2089 an erpet (iob rots, yor = "OCNTEX.TMP', attributes = BINARY, options = output 
; 1458 P 2090 BLISS (BLISS 2) TTHEN failure = open_error %FI 

: 1459 2091 

3; 1460 O36 

3 1461 09 IF .cmdblk Ccontents$v_require)] 

; 1006 094 THE 

> 146 095 4 BEGIN 

3 1464 096 4 : 

3; 1465 097 4 ! Include contents of require file now 

: 1466 098 4 ! 

3: 1467 099 4 LOCAL 

; 1468 100 4 require_iob : $xpo_iob (); 

: 168? 101 4 

3 1470 1 § 4 $xpo_iob_init (iob = require. iob); 

3 1471 P 21 4 $xpo_ 770", (iob = re equire to 

3 1606 P 2104 4 rif’ = cmdblk Eronte ts$t -require. file) 

: 147 P 2105 4 ZBLISS (BLISS THEN, failure = open_error %F1 

: 1476 196 4 3 

3 1475 1 4 

3 1678 108 4 WHILE $xpo_get (iob = require_iob) EQL xpo$_normal DO 

: +g 44 192 ? put (réquire_iob Ciob$t_string]); 

3; 1479 19 4 prpe.clese (iob = require_iob); 

> 1480 12 4 EN 


"Hv 
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; 1481 ELSE 


BEGIN 

No require file - generate standard heading 
iF NOT .cmdblk Ccontents$v_tms11] 

THEN 


1e88 


BEGIN 
put ('. CENTER; CONTENTS'); 
put (" .BLANK'S; 
ND; 
END; 
END; 


| Read file information record 
ig tPonset (iob = tociob, fullwords = 2) NEQ xpo$_normal 
BEGIN 
Empty input file 
RIF XBLISS (BLISS32) 
ZTHEN 


SIGNAL (contents$_emptyin, 1, tociob Ciob$t_resultant)); 


COOOSCOCOOOO0O0O0O0O0OMMMMCMC 


YSLRKUSSSSSVSEORON VS Senenr wri —OoSene nr orc oon venereum co owe 


SSS SSS SSS SSD 


U ZELSE 
U $xpo_put_msg (severity = warning, 
U string = $str_concat 5, seeks input file ''*, 
U wt tociob Ciob$t_resultant), '''')); 
RETURN false; 
END 
ELSE 


BEGIN 
Determine file type 


AL 
correct_format; 
correct_format = true; ! Assume file format is correct 
SELECTONE .codes (0) OF 
SET 


IN. ARO RUNIRIMINIMUNUNUNY 4 2 3 QO 


Corn_file) : 
BEGIN 
i 
! 


! Validate .BRN format 


Be Se Ge Ge Be Ge Se Se Se Fe Se Se Ge Ge Ge Se Ge Se Se Ge Se Ge Se Fe Ge Se Ge Fe Ge Fe Se Ge Ge Se Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Se Se Se Ss Seeeeese 
ee i ee Ee SSS 
See eee esl sl ah sh sh Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab dh Ab dh Ab ah Ab db ah Al ah A tet Det ee et te et et el el el et et et ee ee et 
DEED DXPPA AAD rss & Be BE BB AAAI AIAN NIIAIPPINIPINNPONNPDY SS Ss OS OS 
OOONAWE AN 2 O ODNOA NE WN [OOD NAUE WN O OOINAU EWN SO OONAYV EWN OOONOULS Ww 


IND 
codes = .tociob CLiob$a_data] : VECTOR; | 
I 
} 
| 


dtatefetents formeter orsron H-Fortsts MEGItE Wad dt 


ou 


SS 
pao 


zm 
—Z 
4 
mw 
a) 
oe 


a ft 


n 


— 


file_type = brn_file; 


RETURN false; 
END; 


END; 
RETURN true; 
END; 


: 4 § ? d 

; 1540 15 IF .codes [1] NEQ brn_ident THEN correct_format = false; 
3 : <3 if END; 

: 154 175 Cmaj new toc] : 

3 1544 176 4 BEGIN 

; 1545 199 4 } 

; ! ‘3 178 ? ; Validate .BTC format 

; 48 9 4 file_type = maj_new_toc; 

3 i 30 é 4 IF .codes C1] NEQ toc_format THEN correct_format = false; 
; 138 184 : 

; : 38 188 COTHERWISE) : 

; 1385 187 i Invalid file format 

1387 4 correct_format = false; 

ee a 

3 130) 138 cen” -correct_ format 

we oe esi 

; 1382 + 44 ? Report bad file format and quit 

3 1367 L 3199 4 XIF_ XBLISS (BLISS32) 

; 1269 . 201 ? en ee SIGNAL (contents$_invinput, 1, tociob Ciob$t_resultant]); 
: 1571 U $08 4 $xpo_put_msg (severity = warning 

3 1378 U 2204 4 String = $str_concat (‘invalid file format ''', 
3 137 U 2205 4 tociob Ciob$t_resultant], '''')); 

3: 1574 Be 4 %FI 

3: 1575 07 4 

: 1376 08 4 

: 157 09 

: 1578 19 

3; 1579 1 

; 1580 \¢ 

: 1581 1 

3 1582 14 
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& 4 4 E QOO8E P.ABB: .ASCII \.BTC\ 
9 -BLKB 2 
3 4D 28 E 94 P.ABC: .ASCII \.TMS\ 
4 rh E 98 P.ABD: .ASCII \.RNT\ 
6F 69 73 72 65 76 20 43 4F 54 52 53 4 § i 45 P.ABG: .ASCII \< DSRTOC version \ 
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SSTRSSTRING 


Sor12Re 90:81:05 Yate PLssecaz 


Pe Se Se Se Me Se Ge Ge Se Se Se Se Se Se Se Se Se Se Be Ge Se Ge Se Be Ge Be Ge Se Se Se Se Se Se Se Se Se Se Be Bs Fe Se Se Se Se Se Se Be Se Be Se Fe See Se Se Be Se 


i 


CONTENTS 


“Table of 
v04-000 ficees 


tializat 
000000006 
000000006 

44 

2c 


000000006 


000000006 


000000006 

000000006 
44 
2c 


000000006 


000000006 


000000006 

000000006 
4h 
2c 


000000006 
000000006 


000000006 


000000006 


7€ 


000000006 


O4FC 


000000006 


0504 


0908 


So 
eo 
o— 
woo 


COPY NNO YS VND NOOO UNVNMNO AVIA OS NO UNM QOOMINMNOA VIF ONO UNIMOOONMNOKVICS on 


RPMOWT SMOW™ PMO -WOOMD VOOOVIN VOM 4 O—-"WOm D@ VNOOWOVIN VOM "O—WOon D@ Voowuovnn 


WOOT WI FOF MIF MMNOOFT OOOWNS OCT OMMNOOTOOOWTNIOOVCVTOMM"OOVTOOOW"S 


OD FODENS FONG FO DS FSV OMOO BLN LD DS FLV OMB LOL 1D -DoO fF I OMooWs 


SOOOoooooooSoooooqooooooooooooo GOSCCCOOCOOCOOOCOSOOOOOOOOOOOOOOOOO 


ontents formatter program 
on 


SOOCOCOCOCOOSCOOSOOSOSSOSOOSOSO COS OSOSCSCSOOCSSOSCOSOSCOSCOOOCOOCOOOOOOOOOOOOOOOOOOoOO 
DDPDPEDP_DP_ PPP DPE DPD DP DPD SPV PSV SSVI SUS USSU TUS USS ISIS USS OSES IOSISI OS SIUSIOSIST 


WWIII IPININ 2 | “QOS MN NHN MMMMOOVTIVTVTCOCOOWWOrS YS YS Fr OOOO COONAN OOOOUNM! 


ODS FS VMNVOS BS MOM FS OHA LOOM VIN OVW DW FO ONIN & | PW OLMO PWM OO SPM SPwowo 


tk 


Sep-1 
Sep-1 


30$: 


318: 


32$: 


3Be 19:05:08 


PUSHL 
MOVZWL 


AX-11 Bliss-32 V4.0- 


742 
RUNOFF . SRC CONTEN TS.BLI; 


31 
rae phar ng” 

TMPS 

soos SUTPUT. 10B$+68 


Rif 
=(SP) 


a, XPOSPU 
Ay CMDBLK. 30$ 


SPL 
STASPATLURE 
_ 
SSTRSSTRING 
#5, XSTSCOPY 
TMPSTR, RO 


RO, CHROUT 
S$IOBSOUTPUT, 10B$+68 
ae 10B$+44 


-(SP) 


» APOSPUT 
i, cme ®. 31$ 


STRSFAILURE 
= (SP) 


R9 
SSTRSSTRING 


#5, XSTSCOPY 
TMPSTR, RO 

RO, CHROUT 
S1OBSOUTPUT. 10B$+68 
#7, 10BS+44 

R14 
-(SP) 

Re XPOSPUT 

#1, CMDBLK, 32$ 
#0, ppt IT 


ne 


ngrSASCI 


=(SP) 
 XSTSASCII 
pk 


am Ke2 = (SP) 


Sete Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Fe Fe Fe Fe Be Se Se Ge Ge Ge Ge Ge Ge Fe Fs Fe Fe Fe Fe Be Fe Se Se Fe Fe Fe Fe Fe Se Fe Se Fs Se Fe Fe Be Fe Be Ge 


2049 


2050 


2060 


Sah 3 te 
v04-000 


OOF4 


OOF4 


OOF 4 


OOF 4 


8F 


8F 


8F 


8F 


able of one formatter program 


tializat 


00000000G_ EF 


000000006 


000000006 

000000006 
44 
2c 


000000006 
000000006 


0 000000006 


P>rmuim 
oonon" 


mMmmmmnmnm enon 
maaan MPH 


AOOOO am 

SANS Om 
oo 
WNICOO 


NNN Om 


AOOOO Hn 
OWVE"OOMOO OBOVE"*COMSO OOF "OOMOO O8-DIOL&IOMoo@saLl "WwW "oO "OW 


SOOoOooooooooooooooooooooooooooooooooCoooooOoCoooOoOoOOOOOOOOOOOO 


MMROTOOOODS WTOTVOOOOTDSO Ww™TOTOCOOODIO wm"MnOVVCOOCOWTNODOO"OovUOoUCOoCOn" 
SSS ee OES 


orm 
mn 


# 03 AX-11 Bliss-32_ V 


RUNOFF. SRC conten 
#3, XSTSASCII 
SSTRSSTRINGS 
SSTRSSTRINGZ 
SSTRSSTRINGO 

6, XSTSJOIN 
STRSFAILURE 

#*M<RO,RI> 


#5, XSTSCOPY 
TMPSTR, RO 

RO, CHROUT 
$10BS0UTPUT, 108$+68 
#7, 10B$+44 

Rif 

=(SP) 

R 


#3, XPOSPU 
#1, CMDBLK. 34$ 


SPLI 
#0, (SP), #0, #244, I0B$ 
a tah? 108$ 


Iterepet, “tease 
Hiei 10B$+4 
38, 
SpEN OBs+44 
+ (SBI 
pes XPOSOPEN 


#0, (SP), #0, #244, I0B$ 
820797582 108$ 


IOBS$RESULTANT+2 
Hints fat SPEC, 10B$+4 


“fil 
ges XPOSOPEN 


#0, (SP), #0, #244, 10B$ 


Peer 0 10B$ 
1OB$RESULTANT+2 


reestbe Sirite SPEC, 10BS+4 


OPEN. O8se44 
= (SB 


is” XPOSOPEN 
#0, (SP), #0, #244, I0BS 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Ge Ge Ge Se Se Ge Se Se Be Se Be Be Se Be Be Sse Be Se Be Be Fe Se Fe Fe Se Be Se Se Se Se Se Se Se Se Se Be Fe Se Se 


rae 


; 2067 


; 2070 


2074 


2077 


2081 


2084 


2088 


) 
12 | 
CONTENTS CONTENTS = Table of Contents formatter program 16-5¢ =1984 :01:0 AX-11 Bliss-32 V4.0-74 P 
yo4-500 TOCINI = Saletaticacion _— 1 =30P 71387 90:98:08 RUNOFF .SRC CONTENTS Oris1 - (8 
0 ¢7 778 : | 
EO C7 0301003D &F D0 7 8 MOVL 450397245 108$ ; 
fe ORS F fb BP O6F BOVE, 5084, JOBSRESUL TANT 32 : 2091 
0 FE €? 0001 305 F 5 7 5 BISL re35i6 108$+46 : 
030C ¢?7 1 90 007 : OVE #1, 108$+44 ; 
000000006 EF F OO7A PUSHAB OPEN_ERROR : 
E p4 1AG LRL ss = (SPY : 
02E0 F OO7A PUSHAB 1088 : 
000000006 EF FB 7A CALLS #3, XPOSOPEN : 
03 6A 008 ‘i 078 BBS 2 CMDBLK, 35$ + 2093 
OOF4 8F 00 6E 00 C ork 35$: MOVCS #0, (SP), #0, #244, 10B$ + 2102 
6E 0301003D BF DO Orc MOVL  #50397245, 10B$ : 
16 =A O20E 8F 80 07¢ MOVW #526, IOB$RESULTANT+2 : 
04 AE 4C AA : 007CF MOVAB $IOBSFILE SPEC, 10B$+4 : 2106 
2c AE 01 90 00704 MOVB #1, I0B$+24 ; 
000000006 i oF 00708 PUSHAB OPEN ERROR : 
E 04 007DE CLR 0 = (SPY : 
08 AE OF 00760 PUSHAB 1988 : 
000000006 EF 03 FB OO7E CALLS #3, XPOSOPEN : 
2c OA 06 90 OO7EA 36$: MOVE 6. 10B$+44 + 2108 
5B DD OO7EE PUSHL R1 : 
op AE OOF oopES StetAB Toss. ; 
000000006 EF 08 FB Bors CALLS he XPO$GET ; 
00208001 = 8F 50 D1 oo7F¢ CMPL RO, #2129921 : 
42 12 0080 BNEQ : 
000000006 cf 9F 00805 PUSHAB STRSFAILURE + 2109 
E 04 00808 CLRL © =(SP) : 
59 DD 00800 PUSHL 9 : 
40 AE 9F OO8OF PUSHAB $STRSSTRING F 
43 D4 00812 CLRL oe : 
000000006 Ef 05 FB 00814 CALLS #5, XSTSCOPY : 
0 69 3C 0081B MOVZWL TMPSTR, RO ; 
000000006 EF 50 CO BIE ADDL2 RO, CHROUT : 
44 AB 69 3 08 MOVAB $10BS0UTPUT, 10B$+68 : 
2c AB 07 90 00829 MOVB #7, 10B$+44 : 
B OD 008 D PUSHL R11 ; 
7E D4 O082F CLRL. = = (SP) : 
58 DD 00831 PUSHL Rs : 
000000006 EF FB 0 3 CALLS #3, XPOSPUT : 
6A 1 €1 A BBC #1. CMDBLK, 36$ : 
000000006 EF 9 FB E CALLS #0. SPLIT F 
A311 0084 BRB : 2108 
2c OA 02 90 00847 37$: MOVB we 10B$+44 : 2111 
B DD 00848 PUSHL R1f ; 
7E D4 0840 CLRL. =< SP) : 
08 AF F 0 AF PUSHAB igBs : 
000000006 EF Fe é CALLS #3, XPOSCLOSE ; 
0086 3 388: BRW 4} > 2093 
F9 4 1 £0 ¢ 9$: BBS #1, CMDBLK, 38$ : 2118 
000000006 EF F 6 PUSHAB STRSFAILURE > 2121 
E D4 6 CLRL = (SP) : 
5 BD 6 PUSHL R9 : 
0544 (C7 9F OOB6A PUSHAB $STRSSTRING : 


a cet ~4 


F 12 
CONTENTS CONTENTS = Table of Contents formatter program 16-Sep-1984 AX-11 Bliss-3 -74 
yo 600 TOCIN, = Initrsticetion POT ee Tee loke Weiosieh | EAdaaee taeScanrtnte ords1 Page $5 
7E D4 CLRL. = =( SP) ; : 
000000006 fF Of FB 1 CALLS Pt sth aa : : 
0 9 3 7 MOVZWL TAP : ; 
sacha * oR 9 5 gf pouks sence 108$+68 ; 
° + P+ ; 
2¢ | 7 5 : MOVB Hel $+44 : : 
B OD 9 PUSHL : ; 
2 ee : ; 
000000006 EF 6 FB F CALLS a XPOSPUT : : 
6A 1 £1 00896 BBC #1, CMDBLK, 40$ ; ; 
000000006 _ EF 00 FB 0 9A CALLS #0, SPL : ; 
000000006 EF OF Al 40S: PUSHAB STRSFAILURE + 2122 : 
: D4 008A7 CLRL © =( SP) : : 
59 DD OOBA9 PUSHL R9 : ; 
054C C7 9F OO8AB PUSHAB $STRSSTRING ; : 
é D4 OOBAF CLRL ; ; 
000000006 EF 05 FB 00881 CALLS #5 KSTSCOPY : ; 
0 69 3 0888 MOVZWL Ti Pst : ; 
000000006 EF 50 ¢ 0888 ADDL2 our ; : 
44 AB 69 3 OBC OVAB RO ciOUT 10B$+68 : ; 
2c AB 07 90 0086 OVB #7, I0B$+44 : : 
B OD OO8CA PUSHL R11 : : 
ze D4 O0B8CC CLRL = = (SP) ; ; 
58 DD OOBCE PUSHL R ; : 
_ 000000006 EF 03 FB 90809 CALLS #3, XPOS$PU ; ; 
7 6A 01 £1 00807 BC #1, CMDBLK, 41$ : ; 
000000996 EF 00 FB 008DB CALLS #0. SPLIT : ; 
4 A? 08 BO OO8E2 41$: MOVW #8. 10B$+52 + 2132 ; 
360 OAT 02 90 008E6 MOVB #2, 10B$+54 ; ; 
2c A? 06 90 OOBEA MOVB #6, I0B$+44 : ; 
5B DD OOBEE PUSHL R11 ; ; 
ze D4 OO8F CLRL. =(SP) : : 
57 DD 008F2 PUSHL R7 ; : 
000000006 EF 03 FB 008F4 CALLS #3, XPOSGET : : 
00208001 8F 50 D1 008FB MPL = RO, #2129921 : : 
0D 13 00902 BEQL 2$ ; : 
1¢ «A? 9F 00904 PUSHAB TOCIOB+28 : 2140 : 
1 Dd 00907 USHL ; : 
000000006 8F DD 00909 PUSHL #DSRTOCS_EMPTYIN : : 
4 11 990f BRB : ; 
50 38 =A7 DO 00911 42%: MOVL TOCIOB+S ; 3155 : 
51 01 00 0913 MOVL = #1 CoRRECT™ FORMAT : 2160 ; 
FFFFFFFF © 8F 0 D4 091 CMPL (RO), #=1 > 2165 3 
B 12 OO9TF BNEQ 3 $ 
OOF4 C7? 1 CE 09 1 MNEGL #1 FILE aI VPE : 2170 : 
02 04 AO D1 00926 CMPL 4(RO), : 2172 : 
of 11 0092A BRB 44$ § 3 
60 01 09 C 43$ CMPL (RO), > 2175 : 
08 12 0092F BNEQ  45$ : ; 
D0 00931 MOVL = #1 FILE, TYPE : 3180 : 
04 AO D1 009 CMPL «4 (RO), & : 2182 ; 
13 OO93SA 448: BEQL 46$ 3 3 
D4 0093C 45$:  CLRL § CORRECT_FORMAT : 2189 : 
1 £8 93— 40$:  BLBS  CORRECT-FORMAT, 48$ + 2193 : 
1c «6 AZ?) OOF 0094 PUSHAB TOCIOB+28 : 2201 : 
01 DD 00944 PUSHL #1 ; : 


EE 


v04-000" FOMTENTS ;,Jable,of.fontents formatter progran J6-t8 ep-198¢ 19:09:48 ERUNDFFSRESCONTENES-OLT 1 


000000006 DD PUSH agence owe 
000000006 00 i cat 34 LI tat 
50 4 MOVL » RO 
4 RET 
o % : CLAL RO 
RET 


; Routine Size: 2396 bytes, Routine Base: SCODES + 10FE 


Be Be Be Se Se Ge Se 


<- 


oo 


<-o 
#3 
— 


QEARENLSSSLEREANLSSSLERL 


ALAR ORONORUPUNIPUNUNUN 2 OOOO 


WN =O ODONAULS WN —ODONOUS WN —O0@ 


WA 


ee ee ee ee ee 
ae 


SPOROHAHAOOAAOAAAAOAOAAAOAOAAAAOAAAAAAAAAAAOOOIUIN 


Se Se Se Se Se Se Se Se Se Se Be Se Be Se Se Se Fe Se Se Ge Se Ge Ge Se Ge Fe Ge Ge Se Ge Ge Se Se Ge Se Ge Se Ge Se Se Se Se Se Ge Ge Se Ge Se Se ee Fe Hse Se Se Ge Geese 


ww 


ooo 


INCR i FROM 1 TO page_sct_size DO 
BEGIN 


Copy page number 
pagen C.i - 1) = .page_ref C.i - 1); 


END; 
BEGIN 


H 12 
CONTENTS = Table of Contents formatter program 16-Sep-1984 00:01:0 AX-11 Bliss-32 V4.0-742 
PROCESS_PAGE = Process page reference record 132388- 1382 99:95:28 RUNOFF .SRCJCONTENTS.BLI;1 
15 1 ZSBTITL ‘PROCESS_PAGE = Process page reference record’ 
1§ 1 ROUTINE process_page : NOVALUE = 
wae 
15 FUNCTIONAL DESCRIPTION: 
? : This routine is called by TOC () to process a page reference record. 
§ i FORMAL PARAMETERS: 
5 } None 
§ 1 | IMPLICIT INPUTS: 
8 i! 
9 1! None 
» Sy 
1 ! } IMPLICIT OUTPUTS: 
3 1 i pagen - contains the new page reference 
35 : he page reference record is written to the four temporary files. 
6 1 | ROUTINE VALUE: 
3 ! COMPLETION CODES: 
4 ! None 
41 1! SIDE EFFECTS: 
$g 1! 
45 1! None 
244 1 Se 
2345 BEGIN 
$¢$ errcnt = 0; ! Reset count of CONFUSED messages. 
48 ! 
i Read a page number. 
$2 1 $xpo_get (iob = tociob, fullwords = page_sct_size); 
$ BEGIN 
5 IND 
§ § page_ref = .tociob Ciob$a_data] : VECTOR Cpage_sct_size]; 
8 MAP 
pagen : VECTOR ([paye_sct_sizel; 
4 
4 
4 
4 
| 


NAA AAAAAAAAS MMIII 


—OOONOUS WN Oo 


POPOPONOPONoPONoNoNofnononofny 


12 
CONTENTS CONTENTS = Table of Contents formatter program 15- Sep-19 AX-11 Bliss-32 V4.0-74 
voe-000 PROCESS_PAGE = Process page reference record eats yi 99: §3: 3 RUNOFF .. SRC CONTENT SOL 4:1 
1803 af i weit information t fil 
: ! Write page information to tem es 
: 1808 7%, i eg . 
; Ite 75 LOCAL 
3 184g 6 record_header : VECTOR (2); 
: 164 7 record_header = ma runotts 
3: 1648 i record_header £93 = mi ery ~page 
3; 1649 0 $xpo_put (iob = stciob, inary. data = (2, record_header)); 
: 1650 1 $xpo_put (iob = stciob, pinery data = (page. sct -fize. pagen)); 
; 1651 ¢ $xpo_put (iob = tgiob, binary_data = tc. record peed er 
3; 16 § $xpo_put (iob = f job, binary_data = (Bore sct 2: pre. en ngen”?: 
3 16 4 $xpo_put (iob = tbiob, binary_data = (2, récord_header)); 
3; 1654 5 $xpo_put (iob = tbiob, binary_data = (page. sct ane; gehegen?s 
3; 1655 § $xpo_put (iob = exiob, binary_data = (2, récord_header)); 
5 1926 at $xpo_ put (iob = exiob, binary_data = ston, sct_Size, pagen)); 
: 1658 $80 
: 1659 90 1 END; 
108$= TOCIOB 
10B$= FG108 
10B$= FGIOB 
10B$= TBIOB 
108$= TB10B 
10B$= EXIOB 
10B8$= EX1I0B 
007C 00000 PROCESS_PAGE 
Save Re. ss. R4,R5,R6 
56 00000000G EF 9E 00002 MOVAB PAGEN 
55 000000006 EF 9E 00009 MOVAB 1oose68. R5 
54 00000000G EF 9E 32019 MOVAB XPOS$PUT 
53 00000000G EF 9€E 0001 MOVAB arose catag - R3 
52 00000000" EF 2s bt MOV $+52, 
5E 1 C 0 SUBL SP 
0384 C2 04 00028 CLRL. —« ERRCNT 
6 1 88 002C MOVW #16, 10B$+52 
0g A 0 0 0002F MOVB #2, 10B$+54 
F A g 90 000 ; MOVB age 10B$+44 
0D 8 PUSHL R 
oP 9 CLRL (SP) 
cc A F PUSHAB g8 
000000006 F 8 fe CALLS ft XPOSGET 
1 1 =O 4 MOVL 
0 04 8241 D 48 1$: MOVAL a@TOCI0B+56C1J, RO 
FC A641 FC AO D 4 MOVL -4(RQ), PAGEN-4L1) 
F1 51 4 F AOBLEQ #4, I 
08 AE é D MOVL ae, RECORD_HEADER 
0c AE D 8 MOVL #1, RECORD HEADER+4 
6E F MOVW #8, SIOBSOOTPUT 
0 AE 6 MOVB . ‘ gi cecoulets 
0 AE MOVB $108$0 
04 AE 08 AE E 0006A MOVAB RECORD. OE ADERS "STopsouTPuT+s 


¢ 
Page 67 Vv 
#32 V4.0-742 (4) 
30-1984 83:28 FRUNorr°SRe CONTENTS.BLI;1 , 
Table of Contents permester progres ! =300 138 99: 74 epee 3 : 
PROCESS. PAGE = Process page reverence VAB  $0BSOUTPUT, 
contents PROCESS_PAGE " ia 3 $f nove. i 10BS+44 : ; 
EB AS D0 "6 CURL Pht ty 2281 
BF OO07A CALLS. #3. XPOSPUT : 
en, ae Se ts Son te $10880urPuT ; ; 
rf 4 Rove, i, Slogsoureures ; 
fs ep fovig Baden, $Jossoureyr ss | : 
‘2S te 4 3 F aoe i 10B$+44 : 
6 f 96 8 wae ; : 
cB A dd CLRL = ~~ ; 
D4 00 an PUSHAB iges $PUT i 2 ; 
” 8 Pe 00080 MOU, «#8. STOBSOUTPUT ; : 
64 08 BO OOOA ROVE #2: $10B$0UTPUT» 
02 iE a i ooh shy Be RECORD HEADER, $10BSOUTPUT +4 : : 
rE ee at : : 
(2 90 00085 HL ORS : : 
ord 55 44 Sie CLAL Tone. ; 2283 
P $ é ; 
Ce 9F 0008 CALLS #3, XPO T : ; 
, 0c FB 000¢ MOvW i.’ slossouvpot'g ; : 
ee 03 86 0908 +h SIOBSOUTPUT®3 ; é 
0g AE 01 90 000¢¢ MOVAB PAG PHN yaa blade : : 
O, AE ee 20004 ROVE, 7. 10BSea4" 
108 9 G0009 SHL = R3 ; 
ah C of DD 000D eae -(SP) + og, : 
7E D4 43 PUSHAS = 108$ POSPU ‘ : 
00C4 C3 oF Spee CALLS #3, 1OBSOUTPUT ; : 
08 FB b00e6 ys OES’ Sitesanrpute : ; 
64 08 0 O00E9 move 6 OSS? Siossourpure 144 ; : 
6E 02 90 O00EC MOVAB RECORD CRIEADER”. $1 0BSOUTPU ; : 
oe A 01 90 OOF MOVAR  SiGesDOTBur. fosscne ; ; 
% Ae 8 Se Bot nove, FP : 
O1FC C E 90 OOF PUSHL a3 P) : : 
O1E4 C2 3 DD 001 CURL 7ise + 5085 ; 
pe } PUSHAB 196 XPOSPUT ° : 
0188 C3 F 1 CALLS Ae SIOBSOUTPUT : 3 
64 7 108 nove OF + $10BSOUTPUT +2 ; ; 
es) a eee : : 
08 ne 66 ge it MOVAB — $J0BS0UTPUT . ; 
grr C3 5 96 001 2 PUSHL RS : ; 
164 3 DD 001¢7 CURL 7tSB ; 2286 ’ 
t 00156 shige ' 
0188 FB 0013F mov © #8. S10BSOUTPUT 
64 ry 80 0132 
6E 


x 
nou 


cont NTS CONTENTS = Table of Contents formatter program 
PROCESS_PAGE = Process page reference record 


pt} 


2 
ep-1984 43:05:48 RUNOFF “SRESCONTENTS BLT: 1 soe 


AE 1 MOVB #2, $10BS$OUTPUT+ : 
08 i §F 38 133 Move. a StopspuTPUTsS 
= 2 08 AE 9E 001 MOVAB RECORD HEADER $10BsoUTPUT+4 : 
ig bis aS ostagiey font ; 
3 pd 0014¢ PUSHL j ; 
4 146 CLRL. = (SP) : 
O2AC F 001 PUSHAB 1988 ; 

re 60 133 conte ri6 MET OBSOUTPUT : 2287 
i ep ee Me ai : 
87 A 66 9E 165 MOVAB PAGEN, $IOBSOUTPUT+4 : 
ig BS anise BUS ytbeeyl- loeb : 
2 ; 
O2AC C3 F Sse PUSHAB 1088 : 
64 63 FB 00178 CALLS #3, XPOSPUT : 

04 00178 RET + 2290 


; Routine Size: 380 bytes, Routine Base: S$CODE$S + 1A5A 
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CONTENTS CONTENTS = Table of Contents formatter program 18-$6 -1984 00:01: AX-11 Bliss-32 V4.0-74 
voe-000 PROCESS ENTITY INFO - Process figure/tablevexan 1 30071382 99:03:28 RUNOFF .SRC CONTENTS .BLis1 


ROUTINE VALUE: 
COMPLETION CODES: 


None 

SIDE EFFECTS: 
None 

5 BEGIN 


LOCAL 

prefix_addr, 
prefix_fullwords, 
suffix_addr, 
suffix_fullwords, 

iob_ptr : REF expo. ob Q), 
info_list : VECTOR (6); 


BRwS 


Neate O 4 


1661 ZSBTITL "PROCESS_ENTITY_INFO = Process figure/table/example info record’ 
1998 $3 ROUTINE processventityrints : NOVALUE = _ : 
664 94 13 
665 37 FUNCTIONAL DESCRIPTION: 
be? 9 i This routine is called by TOC () to process a figure/table/example 
o98 38 H information record. 
670 9 ; FORMAL PARAMETERS: 
67% a8 None 
67% 04 IMPLICIT INPUTS: 
676 0 i major - major record code 
67 0 : minor - minor record code 
678 08 ! exiob - 108 for examples temp file 
679 ' fgiob - 108 for figures temp file 
ony } thiob - 108 for tables temp file 
68¢ i IMPLICIT OUTPUTS: 
684 i The record is written to the appropriate temp file if new captions 
685 are being processed. 
: 
! 
i 
i 
1 
i 
le 


POPOMOPONNY 2 SO 


NOUS WN 0 COONAN WN 9 ODNOA UE WN" OOONOU SW 0 0 


MTOM 


SxSS3 


errcnt = 0; ! Reset count of CONFUSED messages. 
iob_ tr = (SELECTONE .minor OF 


min_examp_inf] : exiob; 
min_table_inf] : tbiob; 


SEVERE 


in- 
S$); 
info {se £0} . major; 


figur_inf 
info_l st -minor; | 


m : fgiob; 
r g 
l 


RIPDOPIMIPIHALALAALPIPRIMPYNINPINI/PINPIPNINAY nr i i a ad td od od dd ed 
= 


ee eee ee a ee ce ec ce ee ce ee ee a ee ed ed nd ed ed ed ed 


SSNS 


SIN NAAAAASAASAAAI- AS 
SSZSF 
DWNAOULS WM — 
RIPOPIPIPINININPININDNININYININPIPIPYPPIPYNIPINNYPYIPIPONONNIPIPPOPONoNy 


WWWNAAA AAI AWA AAAI AAAI AAAI A NAAI AAW WWI 


ee a a a i oy 
NOUS WN—O 


Fe et et et et et et 


i Get counter, display descriptor and prefix text length 


M12 
CONTENTS CONTENTS = Table of Contents formatter program 16-Sep-1984 00:01:0 AX-11 Bliss-32 V4.0-742 Pa 70 
Gone 600 PROCESS_ENTITY_INFO = Process tigure/tablevexan 12-808=1 382 90:93:08 RUNOFF .SRCJCONTENTS.BLI;1 ber (5) 
1 4 ! 
1 szpe get (iob = tociob, fullwords = 3); 
BEGIN 


IND 
counter_info = .tociob Ciob$a_data] : VECTOR; 


| 
| 
info_list § = .counter_info [0]; ! Counter value 
info_iist = .counter_info [1]; ! Counter display code 
info_list (4] = 2]; ! Prefix text Length 
END; 
{ 
| 
| 


SINGING 


-counter_info 


IF_.info_list [4] NEQ 0 
THE 

BEGIN 

There is prefix text 


A Re ee aes 
POPOPOPOPOPUTOPonoTnonoTnonornoporororororny 


VIEW OC ODNOUES WN“ OOONAOUE WOOO 


prefix _fullwords = CHSALLOCATION (.info_List (4); 
$xpo_get (iob = tociob, fullwords = .prefix_fullwords); 


eb i i ee 
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31 

3 1 

3 7 

os 
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3 3 
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3 3 
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3 1 
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3 1 

> 

i] 

3 \ 3 H Get some memory to store the prefix string in. 

3 : : 371 $xpo_get_mem (fullwords = .prefix_fullwords, result = prefix_addr); 
; : : uF } Copy the prefix string to the memory just allocated 
3 174 75 4 BEGIN 

3: 1746 76 4 BIND 

3 1747 77 4 input vector = .tociob Ciob$a_data] : VECTOR, 
3 by Has 7 prefix_vector = .prefix_addr : VECTOR; 

; 1750 2380 4 INCR i FROM 0 TO .prefix_fullwords - 1 00 

3; 1751 81 4 prefix_vector [.i] = .input_vector (C.i]; 

3 173g Hf 4 

3 175 83 3 END; 

3 1754 84 END; 

3; 1755 85 

3 1796 y] ! 

3 175 ; ! Get length of suffix text 

3; 1758 388 ! 

; 1759 389 $xpo_get (iob = tociob, fullwords = 1); 

: 1760 set info_list (5) = .(.tociob Ciob$a_datal]); 

: 1006 35 IF .info_list C5] NEQ 0 

3; 176 9 THEN 

3 1764 94 BEGIN 

3; 1765 95 : 

3 1298 38 ! There is suffix text 

: 176 9 : 

3; 1768 98 suffix_fullwords = GNBALL OF AT 108 (.info_list (5])); 
3 1? , 44 $xpo_get (iob = tociob, fullwords = .suffix_fullwords); 
: Vert 401 : Get some memory to store the suffix string in. 

; 1778 408 $xpo_get_mem (fullwords = .suffix_fullwords, result = suffix_addr); 
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Process figure/table/exam 14-Sep- 


f 
0 
Copy the suffix string to the dynamic memory area 
G 
N 


vector = .tociob Ciob$a_data] : VECTOR, 
X vector = .suffix_addr : VECTOR; 


t 
i 
ROM 0 TO “pelt "2. Fyt words - 1 00 
ix.vector C.iJ = .input_vector (.iJ; 


IF vfycap (new_captions) 
THEN 7 — 
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BEGIN 


i write major-coce, minor-code, counter, 
display-descriptor and prefix text Length. 


$xpo_put (iob = .iob_ptr, binary_data = (5, info_list)); 
Write prefix text if any 

if .info list C4] NEQ 0 

THEN 


$xpo_put (iob = .iob_ptr 
Binary_data = (.prefix_fullwords, .prefix_addr)); 


' 
Write suffix text Length 


$xpo_put (iob = .iob_ptr, binary_data = (1, info_list (5])); 
Write suffix text if any 

If .info_list (52 NEQ 0 

THEN 


$xpo put (iob = .iob_ptr 
Binary_data = (.Suffix_fullwords, .suffix_addr)); 


If .info_list [4] NEQ 0 
THEN 
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BEGIN 
; Deallocate the memory we allocated for the prefix string 
$xpo_free_nem (binary_data = (.prefix_fullwords, .prefix_addr)); 


If .info_list [5] NEQ 0 
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BEGIN 
i Deallocate the memory allocated for the suffix string 
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progres 16 
le7exam 1 
O_free_mem (binary data = (.suffix_fullwords, .suffix_addr)); 


BS 


0 = Process figure/ta 


f Contents formatter 
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EN 


"| eens melee 
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AX-11 Blisg-32 V4 .0-742_ (3 

16-50 ~Sep-1984 F.SRC CONTEN NTS.BLI;1 

1S PROCESS ENTITY INFO S Process figueestablovecem tecgepetoe6 Se:feic8 — EaGnoe ; 

voe-500 Jenene idan Aaheoe 9F 0009F PUSHAB 08S t nen : 

6A - a3 FB OOOA acure He, 3 $685800" SXPOSDESC : 

6E 020200 F DO 900A CLRL —- $XPO : : 

be BG De pat PUSHL RO : ; 

32 BR BnOA cLRQ = 

i CE bo08s MINEGL (SP) : 

7E 10 oe GE 008 PUSHAB Sxfosvesc 

52 DD $e att ofeOgALbOr wen ; 

000000006 4 fe 0c Boer SxbOS STATUS, PREF IX_ADDR + 2380 ; 

i OO ee aB¢ oe ; 2381 

Og ii Gdace MOVL. aTOc10B+ S6C1],. (PREFIX_ADDR)CI] 

se = oe 2 0004 78: AOBLSS. PREF IXAFULLWORDS, I, 68 ; 2389 ; 

“eg é8 a3 35 hoes Cee’ tnwseSl : : 

AB 2 90 00008 MOVB #6, I0BS+44 : : 

ros 38. DD OO0ES PUSHL RO ; 

7E D4 QOOES » this 

F Q00E7 PUSHA ; tango 

‘ ‘ OOOED ROVL” atoclopsse. INFO_LIST#20 : 2392 : 

ws » 87 be Ooore FSit INFO_LIST#20 

8 M3 Oboes BEQL = 128 — : 2398 3 

000F9 INCL 1ST+20, RO : ; 

35 ef 0O0FB SAT fa RO. SUFFIX FULL WORDS * 2399 : 

30 on 03 $8 Oo1a4 ASHL W. SUFFIX, FULCWORDS of ; ; 

° ; : 

5 i 55 gh Ooids WA Hasta ; ; 

AB 02 90 00108 MOVB #6, 10B$+44 : . 

02 AB 06 90 0010F PUSHL RO : ; 

sec 59 DD 00113 che, sp ; 

7E D4 00115 CURL : 

6A 03 Fe GOllA MOVL Fac HeQ SXPOSDESC 

02020000 8F D0 0011D CLRL —- SKPOSDESC+4 : 

" 04 AE 8 00188 PUSHL RO : 

Ze 7C 00129 Hn I = (SP) ; : 

7E Bt OGG bxise PUSHAB SxFosvesc : 

At dD 3 i ALLS 46, XPOSALLOC WEN 

oo00000s ff 30 £9 OO13A MOVE SXPOSDESC4, SUFFIX_ADDR ; 2412 ; 

55 04 AE DO 4 T a, MNEGL #1, I ; : 

CE 00141 98: RE O18 RCI : 2413 ; 

30 p i 00144 MOVL  @TOC1OB+S6C1) {SUFFIX ,ADD 3 

sag " oui PD OO1de 118; AOBESS SUFFIX FULLWORDS 1 ; 2418 

F6 50 1 pd 001 koe VEYCAP 

o0000000v FF 4 ts a BIBS RO, ce © uss ; 


dD 13 
CONTENTS CONTENTS = Table of Contents formatter program 16-Sep-1984 701: AX-11 Bliss- 4.0-74 
v04-000 PROCESS_ENTITY_INFO = Process figure/tablevexan 122868-1 382 99:03:28 RUNOFF .SRC conTENTS orgs dyer 3 
AE 1 MOVB #2, $IOBSOUTPUT+ : : 
a8 AE ge 38 1 g MOVB sof a eso Tpurss : F 
a A 08 AE 3 16A MOVAB Fo LIST, S$IOBS$OUTPUT+4 : ; 
a A L F 16F OVAB JOBsOUTP T, 68(10B_PTR) : : 
2c AG 90 001 : Ove » 44(10B_PTR) : ; 
9 DD 0017 PUSHL R9 : ; 
E D4 129 CLRL. =(SP) : ; 
54 DD 00178 PUSHL 198 PTR : : 
68 03 F 17D CALLS #3, ~XPOS$PUT : ; 
18 AF p o1 ist INEO_LIST#16 + 2429 : 
6E 53 o4 A 4 MULW3 #4, PREF IX FULLWORDS, $IO0BSOUTPUT + 2432 ; 
02 AE : 30 1 MOVB We, $10B$O0TPUT+ : ; 
03 AE Q 90 0018D MOVB #1, $IOBSOUTPUT+ ; ; 
04 AE 6 pO 00191 MOVL REFIX_ADDR, $IOBSOUTPUT+4 : ; 
44 AG E : 90199 MOVAB $IOBSOOTPUT, 68(108_ : ; 
2 AG 90 00199 OVB » 44(10B_PTR) : ; 
9 DD 0019D PUSHL R9 : : 
E D4 0019F CLRL. =(SP) : : 
54 DD OO1A1 PUSHL 10B_PTR : : 
68 03 FB O01A3 CALLS #3, XPOSPUT : F 
6E 04 B0 OO1AG 14$: MOVW #4, $IOBSOUTPUT + 2437 ; 
02. AE 02 90 OO1A MOVB st, $10B$OUTPUT+2 : : 
03 AE 01 90 001AD MOVB so] $10BSOUTPUT+ : ; 
04 AE 1¢ «=AE 9E 00181 MOVAB INFO_LIST+20, $IOBSOUTPUT+4 : ; 
44 AG 6E 9E 00186 MOVAB ${0BSOUTPUT, 68(10B_P : 3 
2c AG 07 90 001BA MOVB #7, 44(10B_PTR) ; ; 
9 DD 001BE PUSHL R9 : ; 
7E 04 001C0 CLRL.  =(SP) : : 
54 DD 001C2 PUSH! 108 R : : 
6B 03 FB 001C4 CALLS #3, XPOSPUT : ; 
1 7 €9 001C7 BLBC. R77, 15$ + 2441 ; 
6E 2 04 AS OO1CA MULW3 #4, SUFFIX_FULLWORDS, $IO0BSOUTPUT + 2444 : 
02 AE 02 90 OO1CE MOVB ss 2, $10B$00TPUT+¢ F ; 
03 AE 01 90 001D2 MOVB 1, $10B$ + ; ; 
04 AE 55 DO 00106 MOVL SUFFIX ADDR, $I1OBSOUTPUT+4 : : 
44 AG 6f 3 O1DA MOVAB $IOB$OOTPUT, 68(10B_PTR) ; ; 
2c AG 07 9 O1DE MOVB = #7, 44(10B_PT : ; 
59 DD OO1E PUSHL R9 ; : 
7E D4 OO1E4 LRL. = = (SP) : ; 
54 DD O16 PUSHL 108 _PTR : : 
6B 03 FB OOIE CALLS #3, XPOS$PUT ; F 
18 AE 05 OO1EB 15$:  =TSTL INE O_LIST#+16 : 2448 ; 
‘4 Oleg BEQL a : : 
6E 53 4 A5 OO1F MULW3 #4, PREFIX _FULLWORDS, $XPOSDESC > 2454 : 
02 AE 90 001F4 MOVB 2, SXPOSDESC+ ; 
03 AE 90 1F8 MOVB #2, $XPOSDESC+ ; 
04 AE DO OO1FC MOVL § PREFIX_ADDR, SXPOSDESC+4 ; 
bp 0 PUSHL R9 F 
: C CLRQ. = =(S : 
7E 0 ce MNEGL #2, -(SP) : 
10 AE SF 00 g7 PUSHAB $XPOSDESC ; 
000000006 _ EF F A CALLS #5, XPOSFREE_MEM ; 
1 E 11 16$:  BLBC 7, 17$ : 3457 
6E 2 4 A 14 MULW3 #4, SUFFIX _FULLWORDS, $XPOSDESC + 2463 
02 AE 3 30 18 MOVB a3. SXPOSDESC+ : 
AE 9 iC MOVB #2, $XPOSDESC+ ; 
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AX-11 Bliss-32 V4.0-742 
ROCESS_ENTITY_IN exam 14-Sep-1984 RUNOFF ..SRCJCONTENTS.BLI;1 
04 AE 5 no 0 MOVL SUFFIX ADDR, SXPOSDESC+4 
D 4 PUSHL R 
C 6 CLRQ. = =(SP) 
7E 02 CE MNEGL #2, =<(SP) 
10 AE F 00 PUSHAB $XPOSDESC 
000000006 EF 05 FB 00 ; CALLS #5, XPOSFREE_MEM 
04 00235 17$: RET 
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- Table of Contents formatter program 16-Sep-1984 00:01: AX-11 Bliss-32 V4.0-74 
ENTITY_TXT = Process figure/table/examp 1 =3007 138i 99:03:28 LRUNOFF SRE COMTENTS OL ts —_ BS 
ZSBITL_*PROCESS_ENTITY_TXT = Process figure/table/ le text g 
ROUTINE processcentity-tat : NOVALUE = ” eee eee 


FUNCTIONAL DESCRIPTION: 


This routine is called by TOC () to process a figure/table/example 
text record. 


FORMAL PARAMETERS: 


None 
IMPLICIT INPUTS: 
major - major record code 
minor - minor record code 
exiob - 10B for examples temp file 
fgiob - 10B for figures temp file 
- 108 for tables temp file 


IMPLICIT OUTPUTS: 
txtlen - length of caption text 


The record is written to the appropriate temp file if new captions 
are being processed. 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 
None 
BEGIN 
LOC 


Cad 
~ 
o 

Cs 


AL 
jiob_ptr : REF $xpo_iob ( 
record_header : VECTOR [ 


errcnt = 0; 
iob_ ge = (SELECTONE .minor OF 


) 
34; 
! Reset count of CONFUSED messages. 


min_examp_txt] : exiob; 
min_examp_txt_u] : exiob; 
ES); 

' 


i Get Length of text 
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CONTENTS CONTENTS = Table of Contents formatter program 18-5¢ Sep-1 Ax-11 iss- 4, 
you~b00 PROCESS ENTITY. TXT = Process figure/table/exanp 1 Sep=1 38 99: te 9 RUNOFFCSRESCONTENT 
: 1895 4 ! 

3 183 5 $xpo_get (iob = tociob, fullwords = 1); 

; 1897 g tntlen = .t.tectos is ob$a_datal); 

: 1899 record_header (0 -major; 

; 1900 § record_header j : aire 

; 1303 ? record. header etxtlen; 

; 1207 ¢ | Get the text, if there is any 

; 1905 ; 4 if gtxtlen NEQ 0 

3 1907 2 § $xpo_get (iob = tociob, fullwords = CH$ALLOCATION (.txtlen)); 

: 1909 538 IF vfycap (new_captions) 

: 1910 539 * hapeteces 

|) men 

; 1318 4¢ Write record to temp file 

: 1915 2544 $xpo_put (iob - fob. tr, bi data = (3, d_h »): 

: 1916 p 5545 Sape“put lem 2 beptr Riles Mes ee 

; Hb a 3347 Binary. data = ter ALLOCATION (.txtlen), .tociob Ciob$a_data])); 
: 1919 548 3 END; 

3: 1920 $262 

3 1921 550 1 END; 


O1FC 00000 PROCESS Sat ae TXT: 


RD Save 1 Be R3,R4,R5,R6,R7,R8 
58 000000006 EF 9E 90002 MOVAB XPOS$PUT. R& 
57 900090006 EF 9E 000 MOVAB XPOSGET R7 
56 000000006 EF 9E 0019 MOVAB MINOR, ‘ 
55 900000006 EF 9€ 0001 MOVAB  TXTLEN 
54 9900000 G EF 9€ OO1E MOVAB KPOSFALLURE. RG 
53 00000000' FF i 00 MOV 10BS+5 ' 
5E 4 C2 0002¢ SUBL2 #20, $ 
0384 C3 D4 0 F CLRL. - ERRCNT 
50 D0 3 MOVL NINOR RO 
0B D1 6 6 CMPL =e RO, #11 
13 9 BEQL =s«o1$ 
0c 0 pi 038 CMPL RO, #12 
07 12 BNEO 
52 00¢4 C3 7 40 1$: MOVAB FGIOB, I0B_PTR 
1 4 BRB 
3 D 47 2%: CMPL = RO, «#14 
1 4A BEQL 
OF p 4C CMPL = RO, «#15 
2 O004F BNE 
52 0188 C3 F 2! 3$: MOVAB TBIOB, IOB_PTR 
4 1 6 BRB 6$ 


Page (ds 


: 2468 
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coe ba 


; Routine Size: 


PRO 


CONTENTS = 
CESS_ENT 


63 


50 
6E 


269 bytes, 


Table of Contents formatter 
ITY_TXT = Process figure/table/examp 1 
08 0 8 
go 9) gues 
sa 5 9 
52 0 rf é 
5 O2AC 3 9 
a | $38 sant 
rs A 6 0 3 
E be 90079 
cc OA BF $78 
67 0 fe Oba 
65 046 83 D 081 
8 pe 000000006 ce 4 4 ; 
a 3 DO 00091 
re Ne ie 8 398 
50 O§ CO O009A 
50 4 8 4443 
50 4 AS QOOA0 
02 A3 2 90 BeOAg 
FB AS 06 90 O00A8 
ve San 
cc is oF 0008) 
: 3} 8 bute 
00000000V_ EF 9 FB 00088 
SA 0 €9 OOOBF 
6E 0c 80 4453 
0 AE 02 90 000C 
0 AE 01 90 434 
04 AE 08 AE YE 000CD 
44 he +3 9E 00002 
2c she 2 90 00006 
4 DD OQO0DA 
7E 04 0000C 
52 0D Boe 
68 8 FB QOOE 
65 ? 4 bee 
3 Bi a8 Sr 
0¢ AE . ? it 
8 AE 01 9 F 
4 A 04 A3 4 OF6 
44 =A +4 bere 
2c .shCUA 9 OFF 
e be Oo105 
BBs ith 
68 03 FB 4 9 
04 0010C 


Routine Base: 
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Be 99:85: 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJCONTENTS.BL 


a8 
i‘ 
RO, #9 
#1, 10B_PTR 
ie, 10Bses2 
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- Table of Contents formatt 12.6 -1984 00:01:05 AX-11 Bliss-32 V4 
Finish table o contents process ee 14 p44 1984 99:03:28 OER ICONTe 


ZSBITL *TOCFIN = Finish table of contents processing’ 
GLOBAL ROUTINE tocfin = 


-Sep- 


i FUNCTIONAL DESCRIPTION: 


This routine is called to finish up processing the table of contents. 


This entails writing the figure, table and example information, 
closing and deleting the temporary files and closing the output file. 


i FORMAL PARAMETERS: 


None 


i IMPLICIT INPUTS: 


None 


i IMPLICIT OUTPUTS: 


None 


i ROUTINE VALUE: 
i COMPLETION CODES: 


true 


i SIDE EFFECTS: 


None 


BEGIN 
Close the caption temp files 
$xpo_close (iob = exiob, options = remember); 
$xpo_close (iob = igiob. options = remember); 
$xpo_close (iob = tbiob, options = remember); 
$xpo_close (iob = stciob, options = remember); 
Process the caption temp files 
iF .captyp EQL new captions 
THEN his “—— 
BEGIN 
: Using .HEADER X captions 
if gcmablk Ccontents$v_tms11) 
BEGIN 
For TMS... 
hdr_x (exiob, tms_ex, min_examp_inf, min_examp_txt, min_examp_txt_u); 


RUNOFF ..SRCJCONTEN 


Se —— 
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voe-000 TOCFIN = Finish table of contents processing 122868: 38 99:03:28 RUNOFF ..SRCJCONTENTS.BLI;1 na 3} 
hdr_x (fgiob, ims. f9. min_figur_inf, ain. figure txt. min_figur_txt_u); 
hdr_x (tbiob, tms_tb, min_table_inf, min_table_txt, min_table_txt_u); 


ELSE 
BEGIN 


i For RUNOFF... 
hdr_x (exiob, rno_ex, min_examp_inf, min_examp_txt, min_examp_txt_u); 


hdr_x (tgiob. rno_fg, min_figur_inf, min? igueatxt. min_figur_txt_u); 
(tbiob, rno_tb, min_table_inf, min_table_txt, min_table_txt_u); 


OO00000 


END; 
' 


Process the .SEND TOC temp file 
stchdr QO; 
Delete temp files 


el] 
SRN 


$xpo_delete (iob = exiob); 
$xpo_delete (iob fgiob); 
$xpo_delete (iob = tbiob); 
$xpo_delete (iob = stciob); 


Bosse sees sees sseeseseees 
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006 : 
2006 ! Write appropriate epilogue 
5008 5 i ° 

009 6 IF .cmdblk Ccontents$v_tms1i} 

010 63 TH 

011 63 put (‘*cfini*') 
sols 64 ELSE 
sot 64 put (*.RESTORE'); 

014 64 
2015 64 ' 

a9 set : Finally, close the output file and call it quits 
018 64 IF .cmdblk Ccontents$v_log] 

019 64 THE 

020 L 264 ZIF BLISS (BLISS32) 

$053 64 XTHEN 

0 § 65 SIGNAL (contents$_created, 1, tocoob Ciob$t_resultant]); 
bs U 2651 ZELSE 

024 U 626 $xpo_put_msg (severity = success, 

025 U 265 string = $str_concat (‘*'', tocoob Ciob$t_resultant], ''' created')); 
em Nae 

028 $26 IF _.cmdblk Ccontents$v_output] 

029 65 THEN 

030 O38 $xpo_close (iob = tocoob) 

: 1 65 ELSE 

§ 269 BEGIN 

9 066 ! User specified /NOOUTPUT 

035 66 ! Close and delete the output file. 

036 664 : 


} 
| 
ee — 
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x 38 


$xpo_close (job = tocoob, options = remember); 
96 pape. Solete (iob = tocoob); 


6 

6 

008 

4 RETURN true; 
670 END; 


«PSECT SPLITS,NOWRT ,NOEXE ,2 
A 69 9 6 A 00 P.ACX? .ASCII \*cfini*\ ; 
45 $ 4F ef 83 3 3 $f 00387 P.ACY: .ASCII \.RESTORE\ 3 
-PSECT SOWNS,WOEXE,2 
0007 00554 S$STRSSTRING: 
«WORD 


01 OE 00556 ‘ 14, F 
00000006' 0055 “ADDRESS P.ACX ; 
0008 0055¢ SSTRSSTRING: | , 
G1 OF 0055E “BYTE 14, 1 F 
00000006" 00566 “ADDRESS P.ACY : 
10B$= EXI0B 
10B$= FGIOB 
10B$ TBIOB 
10B$ EXI0B 
10B$= FGIOB 
10B$= TBIOB 
-EXTRN XPOSDELETE 
.PSECT S$CODE$,NOWRT,2 
OFFC 00000 ENTRY TOCFIN, Save R2,R3,R4,R5.R6.R7.RB.RO.R10,- = 2552 
58 000000006 EF 9€ 9000 MOVAB STRSFAILURE, R11 : 
SA 90000 G EF 9E 0000 MOVAB $STRSTARGET. R10 F 
j Sssgggogs Er Se Gag) SBME pOseLAE, 9 | 
ap900ne EF OE 00028 mas om, A ; 
i BSSmis HORS Helo : 
3 SORREEE EF gE BRESHRRUAB.HSSHARLURE. : 
ze ig 10 as $028 BI SBe #16, 10B$+46 > 2588 
C OA g 004 MOVB #2, 10B$+44 : 
DD 05 PUSHL : 
D4 0005 CLRL. = SP) : 
52 DD 0005 PUSHL Re : 
65 03 F 096 CALLS # KPOSCLOSE F 
FE46 ce 1 8 BISB2 #16, 10B$+4 > 2589 
FEGG OC : 90 a5 ROVE #2, 10B$+44 
E 04 0006 CLRL. = (SP) : 
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TENTS = Table of Contents formatter program 16-Sep-1984 :01: AX-11 iss- 4.0-74 
FIN = Finish table of contents process ¥6 1 =30e7 1382 99:92:98 RUNOF FCSRESCONTENTS Ud s1 
FE18 OF 7 PUSHAB 1988 
6 F B CALLS #3, XPOSCLOSE 
FE RA C 8 BISB2 #16, 10B$+46 
FF38 OC MOVB #2, 10B$+44 
DD 0007 PUSHL 
p4 7A CLRL =< SP) 
es FOG FERRE EEE I ago 
02 Ab 1 bs 0 BISB2 #16, 10B$+46 
86 MOVB ¢- 
DD OO00BA PUSHL 
& p4 C CLRL = (SP) 
04 Ab OF f PUSHAB 1988 
65 0 Fe 0 9 CALLS # XPOSCLOSE 
1 0100 C2 p 34 CPL cAPTYP, r 
32 67 4 i 8098 BBC #1, CMDBLK, 1$ 
09 DD 009F PUSHL #9 
8 DD 99 Al PUSHL #8 
07 DD 000A3 PUSHL #7 
000000006 EF 9F OO0AS PUSHAB TMS_EX 
: DD 0008 PUSHL é 
68 05 FB OO0AD CALLS #5, HDR_X 
OC DD 90080 PUSHL At 
0B DD 00082 PUSHL #1 
0A DD 00084 PUSHL #10 
000000006 EF 9F 00086 PUSHAB TMS FG 
FE18 ce 9F 000BC PUSHAB FGIOB 
FB 000C CALLS #5, HDR_X 
OF DD 000¢ PUSHL #15 
OE DD 000¢ PUSHL #14 
0D DD 000C7 PUSHL #13 
000000006 FF 9F 000C9 PUSHAB TMS_TB 
0 11 000CF BRB 2$ 
09 DD 00001 1$: PUSHL 4&9 
08 DD 00003 PUSHL 4&8 
07 DD 00005 PUSHL #7 
000000006 EF 9F 00007 SHAB RNO_EX 
: DD 000DD PUSHL Re 
68 05 FB O000DF CALLS #5, HDR_X 
0C DD 000E2 PUSHL #12 
0B DD O00E4 PUSHL #11 
OA DD OE6 PUSHL #10 
000000096 EF 9F OE PUSHAB RNO_FG 
FEI ce F OOOE PUSHAB F108 
as FB OOOF CALLS #5, HDR_X 
F DD OOF PUSHL #15 
E DD OCOF PUSHL #14 
D bb OF9 PUSHL #13 
000000006 EF 9F 000FB PUSHAB RNO_TB 
FFOC : 9F 00101 2$: SHAB 1108 
FB 00105 CALLS , HDR_X 
000000006 EF FB 108 3$: CALLS #0. STCADR 
2c A 90 0010F VB ; 10BS+44 
DO 0011 PUSHL 
E D4 0011 CLRL. = = (SP) 
52 DD 0011 PUSHL  R2 


2591 


2616 


2617 


2618 


3680 


pad 
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CONTENTS CONTENTS = Table of Contents formatter program 16-Sep-1984 01:0 AX-11 Bliss-32 V4.0-742 Pa 
voe-500 TOCFIN = Finish table of contents process %6 12286871382 99:03:23 RUNOFF .SRCJCONTENTS.BLI;1 = 3 
63 FB 00119 CALLS #3, XPOSDELETE : 
FEA OC 30 1 HOVE #3, 10B$+4 + 2631 
4 001 LAL -(SP) : 
FE18 F 001 SHAB $ ; 
69 fe 109 CALLS #3, XPOSDELETE ; 
FF38 C2 30 ¢ nove ‘ > 10B$+44 + 2632 
4 001 3 CLAL -(SP) : 
FFOC F 001 PUSHAB 10B$ ; 
69 FB 00139 CALLS #3, XPOSDELETE ; 
66 5 96 0013¢ MOVE #3. 10B$+44 + 2633 
DD 0013F PUSHL ; 
4 O14} CLRL. = (SP) : 
D4 «AB OOF 0014 PUSHAB 1088 : 
69 F 0146 CALLS #3, XPOSDELETE ; 
0c 67 1 €1 0014 BC #1. CMDBLK, 4$ + 2637 
B DD 00140 PUSHL R11 : 2639 
7E 04 O014F CLAL = (SP) : 
SA 0D G9134 PUSHL RI 3 
0276 SK RK ona? el cence 
of DD 00159 4s: PUSHL R11 + 2641 
fe bs o0lp sustu RIO 
027¢ Ce F 00155 a PUSHAB SSTRSSTRING : 
somes 4 BP ale Falta : 
000000096 EF 50 CO OO1GF DDL2. RO, CHROUT : 
18 A 6A 4 00176 MOVAB $108S0uTPUT. 10B$+68 ; 
64 07 9 OO17A VB #7, 10BS+44 : 
ae be ge CURLS -(SP) : 
D4 AG OOF Tee PUSHAB 10B$ ; 
ceamees 3 SE RSS GAS i MORE : 
F FB 0018F CALLS #0. SPLIT : 
2 wn B $8 ft O08 6$: Bet # CHDBLK, 7$ > 264 
ro Ge Gels FUR poten i 
000000006 ar DD 0019F PUSHL HDSRTOCS CREATED : 
000000006 00 3 FB OO1AS CALLS #3, LIBSSIGNAL F 
OF 67 9 OIAC 7$: BLBC  CMOBLK, 8$ : 3656 
64 : 0 OO1AF “OVB i. 108$+44 > 2658 
3 dD 0182 PUSHL R ; 
E D4 0018 CLRL. =< SP) ; 
D4 «AG OOF 0186 PUSHAB 1088 ; 
65 05 f 189 CALLS #3, XPOSCLOSE : 
02 Ab if 88 O18 8$: BISB2 #16, 10B$+46 : 2665 | 
64 1C MOVB #2, 10B$+44 ; 
3§ DD GO1¢ PUSHL RS" : 
BID BMS 8 sans ; 
64 8 88 1CF MOVE #3. ~10BS$+44 > 2666 
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CONTENTS CONTENTS = Table of Contents formatter program 16-Sep-1 AX-11 Bliss-32 V4.0-742 Page 85 
$0500 TOCFIN = Finish table of contents processing 1B-fen-1984 99: i: rf} RUNOFF -SRCICONTENTS -BL 1:1 . § 
3 DD 0010 PUSHL R3 3 
E Be 10 CLRL -(SP) 3 
D4 ay F 138 PUSHAB ag 3 
$2 . FB 001D CALL #3, XPOSDELETE F 
0 1 DO 001D0C 9$: MOVL #1, RO : 2669 
04 001DF RET ; 2670 
; Routine Size: 480 bytes, Routine Base: S$CODE$S + 1F19 
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Table of Contents formatter program 1b-5¢ -1984 701: AX-11 B 
heck caption type ir 1 =3eP 71 38F 90:98:28 RUNOFF, 
BITL ‘VFYCAP = Check caption type' 
UTINE vfycap (type) = 


i FUNCTIONAL DESCRIPTION: 

i This routine checks the caption type being processed against the 

-s! mee caption type. If they are the same, a value of true is 
u ° 


If they are different, a message is written if no message has been 
written already, and false is returned. 


If no caption type has been set yet, the caption type is set from 
the argument type and true is returned. 


i FORMAL PARAMETERS: 
type - argument caption type 
i IMPLICIT INPUTS: 


captyp = caption type being processed 
capmsg =- true if a message hase been written 


i IMPLICIT OUTPUTS: 


captyp - will be set if it is zero 
capmsg - will be set to true if a message is written 


i ROUTINE VALUE: 


: COMPLETION CODES: 


SSSI INA AAA AAA AAA OO 
SGOOGOOCOSOSCO OC OWOVOOOVOOOOMWom 
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3 


See functional description above. 
i SIDE EFFECTS: 
None 


BEGIN 
SELECTONE .captyp OF 
SET . 


Cold_captions] : 
IF .type EQL new_captions 
BEGIN 
IF NOT .capms 
THEN — 


BEGIN 
capmsg = true; 


RIF XBLISS (BLISS32) 
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XTHEN 
SIGNAL (contents$_captions, 0, contents$_ignorenew); 
i] t 5 wa i 9, ad a 
9 = ‘both .SEND TOC captions and "’.HEADER x"’ captions encountered’, 
string = '''.HEADER x’ captions will be ignored"); 


ze 
nn 
ot 


END; 
RETURN false; 
END; 


Cnew_captions] : 


_ 
oO 
—_ 
cccc 
rrorororororororororerorrrnrn = <o 


IF .type EQL old_captions 
THEN > nid 
BEGIN 
IF NOT .capms 
THEN she 


BEGIN 
capmsg = true; 


RIF XBLISS (BLISS32) 
XTHEN 


faa 


ZELSE SIGNAL (contents$_captions, 0, contents$_ignoreold); 
$xpo_put_msg spereetty = warning, ; 
string = ‘both .SEND TOC captions and "'.HEADER x"’ captions encountered’, 
string = '.SEND TOC captions will be ignored’); 


cccc 
ee 
nm 
Ll 


END; 
RETURN false; 
END; 


COTHERWISE) : 
Captyp = .type; 


TES; 
RETURN true; 
END; 


=PIPIPNIPIPININI WANE BB BEEPS EE FWWIWIWIDIPIPINININIWANNWI BE PLL LLL DE 


POPOPOPOPOPDNPYINIPYNYNSNYININININIPUNSNUNIPYAIPINPIPONYPYPIPINPPONPONPPNony 
MEWN 0 OONOAUE WN SO VDONAOUES WN OOODNOUESWN OO ONIOULS Wr 
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0004 00000 VFYCAP: .WORD Save R2 > 2672 
52 00000000" EF i 9008 MOVAB CAPMSG, R ; 

0 FC Ag DO 0000 MOVL CAPTYP. R : 2713 

FFFFFFFE © BF 50 D1 6 0D CMPL RO. a-{ : 2716 
14 12 00014 BNEQ : 

01 04 AC 01 6 16 CMPL TYPE, #1 > 2718 
3F 12 OOO1A BNEG  4$ ; 


ZELSE 
$xpo_put_msg (severit rnin 
strin 


contents CONTENTS = Table of Contents formatter program 1 
v04-000 VFYCAP = Check caption type 1 
4 E 1C 
$F ganh 
00000000G 8F DD 000 ‘ 
1 11 000 
01 50 D1 0002A 
2 i¢ 002D 
FFFFFFFF 8F 04 A 1) 002F 
22 12 00037 
23 62 €E $9 9 
62 4 D ba 
00000000G 8F DD 0003F 
7E 04 pnt3 
00000000G 8F ODD 4 
000000006 00 3 FB 48 
9 11 00054 
FC 8=A2 04 AC DO 00056 
50 01 00 00058 
04 O005E 
50 D4 0005F 
04 00061 


; Routine Size: 98 bytes, Routine Base: $CODE$ + 20F9 


som 
ee 


now 


= 
wr 


2$: 


5$: 


eo = 


p=1984 19:09:68 — ERUNOFFeSRESCONTENTS OL: 1 


CAPMSG, 5$ 

1, CAPMSG 
#DSRTOCS_IGNORENEW 
RO, #1 
TYPE, #=1 
4$ 
CAPMSG, 5$ 
#1, CAPMSG 
#D$RTOCS_IGNOREOLD 


#DSRTOC$_CAPTIONS 
#3, LIBSSIGNAL 


TYPE, CAPTYP 
#1, RO 


RO 


oz 
— 
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ormat a section 


UTINE outsec 
ae 


None 


cmdblk = 
lasthl = 

Lin ° 
minor - 
pagen - 

llist - 
hldsp - 


trect = 
ensct = 
txtsct = 


ROUTINE VALUE: 


None 
SIDE EFFECTS: 
None 


BEGIN 


LOCAL 
hl_width; 


lensct = 0; 


F 
SBTTL 'OUTSEC = Format a section number’ 
0 : NOVALUE = 


FUNCTIONAL DESCRIPTION: 
OUTSEC generates a section number of the form 1.2.3..... 
FORMAL PARAMETERS: 


IMPLICIT INPUTS: 


0- 
number -Sep-1 RUNOFF .SRCJCONTENTS. 


command Line information block 
previous HL *'n 

current HL ‘'n 

minor record type code 

current page number 

header level counters 

header level display codes 
output Line variables 


IMPLICIT OUTPUTS: 


modified 

Length of section number 

contains formatted section number 

output Line variables modified (since section number is 
inserted into the output line) 


COMPLETION CODES: 


' Number of columns reserved for header level. 


ptrsct = CHSPTR (txtsct); 
IF .cmdblk Ccontents$v_tms11] 


BEGIN 


Write out the HL level for TMS 
iF (.lasthl NEQ .hl_n) AND (.lasthl NEQ 0) THEN put ('Cva5J"); 


‘— 
Az 


nna 
mm 
oz 


<o 


POPOTOPOPIPIPOPOPOPYNIPYIPIPIPUPOPONYNPPPPoNPoNnyenofnorngd 


BBE EEE EE PAWN NINN) 2 | SO SS OOOO 
SDoo GOA PWN A OOONOA UNE WIN OOO AUR UNIO DO OUI UMP O00 UN IN BO Doo err 


Format a section n 


>= Sz 

—_ 

“ 

cocecececececes CO 


WAIANAE 


DWONAOULS WO 


POPROPUPOPONOPONO POTN 


PIPIPONPONPONPONOPONONOPONoPONy 
NNN NNN NENA AA AAA AAA MMII BBE PPL LEE 


WR OS DONA WN 0 OB NAULS WN $$ O OONOU SW O OONOUS WR O 


: 
: 
: 
: 
: 


SPP BEN BS EBA BEES SWE ANNIE US BAP 


Be Se Se Se Se Fe Ge Se Ge Ge Ge Se Se Ge Ge Ge Ge Ge Fe Se Ge Ge Ge Se Ge FH Se Ge Ge Ge Se Se Ss Se Se BHTS Se Se Se Ss Se Se Se SH Sse FH Se Ss Se Se Se Ce He Sees 


©909000000 09 00 09 G9 Cd Gd Cd 09 Cd C9 09 09 9 09 09 09 09 Gv G9 C0 C9 C9 C9 CO C9 C9 OD 09 CD CD CD CD 09 CD CD C9 OD 09 CD C9 CD 09 CD CD CD: 


PROPIPIMPIPOPONIPONOPONINININYNPINININIPNY 


ROPIPOPOPSPIPIPONPINPINSMYNYNI ANY 


HAA AASIAI AI & 
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Literal_text ('#c'); 


lensct = pacbas (,hl_n, ptrsct, 10); 
HSPTR (txtsct); 


lLensct = 0; 
piseral.tent ('n*'); 


IF .cmdblk Ccontents$v_include_sections) 
ar Ccontents$g_sections] GEQ .hl_n) 
(.cmdblk Ccontents$g_sections] EQL -1) 
ve (.minor NEQ min_fl_txt_u) 
THEN 


BEGIN 


Don't write the number if user said heads are unnumbered. 
The user must have requested numbered heads an 

the header level must be less than the largest one the user 
specified or the heads must be displayed as input and the 


' 
i 
i 
i 
text is not for an unnumbered header. 
i 

T 


* ae Csct_typ] EQL 0) AND (.hl_nm EQL 1) 
BEGIN 
This is a HL 1 for a document not divided into sectiors 
lensct = pacxxx (.hllist (OJ, ptrsct, .hldsp (0)); 
ELSE 
BEGIN 
if ppegen Csct_typ] NEQ 0 


BEGIN 
; Document is divided into sections 


iensct = pacsec (pagen, pirsct); 
CHSWCHAR_A (2C'.', ptrsct); 
lensct = .lensct + 1; 


INCR i FROM 1 TO .hl_n DO 
BEGIN 


lensct = .lensct + pacxxx (.hllist C.i - 1], ptrsct, .hldsp C.i - 1)); 
CHSWCHAR_A (ZC‘.', ptrsct); 
lensct = .lensct + 1; 
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RUNOFF ..SRCJCONTENTS.BLI;1 
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H 14 
CONTENTS = Table of Contents formatter program 16-Sep-1984 00:01:0 AX-11 Bliss-32 V4.0-742 
OUTSEC = Format a section number _ 1o-g00- 1382 90:03:28 LRUNOFF Se CONTENTS.BLI;1 
7 : Always get an extra dot, so uncount it. 
5 iensct = .lensct = 1; 
i pea 
7 Now copy the converted section number into the Line that's being built up. 
899 fmttxt (.lensct, CHSPTR (txtsct)): 
i -cmdblk Ccontents$v_tms11] THEN write_char (%C' ', counts_visually); 
9 ° 
900 IF_.cmdblk Ccontents$v_tms11] 
901 THEN 
90 write _char (%C'a") 
90 ELSE 
904 BEGIN 
905 ! 
309 } For RUNOFF... 
908 i Compute the width of the region into which the header Level 
308 ' number was supposed to fit. 
311 hl_width = 0; 
318 INCR i FROM 0 TO .hl_n DO 
914 hl_width = .hl_width + indents C.iJ; 
3 . 
a7 ; Pad out this .HL number to fill the columns allocated. 
2919 pad ((.nl_width = .extlin)); 
$350 § ND; 
921 
2922 «(1 END; ' End of outsec 


-PSECT S$PLITS$,NOWRT,NOEXE,2 


SD 35 61 76 5B OO28F P.ACZ: .ASCII \Cva5I\ 
00 00 63 2A 00294 P.ADA: .ASCII \*c\<0><0> 
00 00 2A 6E 00298 P.ADB: ‘ASCII \n#*\<0><0> 
.PSECT SOWNS,NOEXE,2 
0005 00564 SSTRSSTRING: , 
01 OF 005 "BYTE 14, 1 
00000000" Tiere “ADDRESS P.ACZ 


-PSECT S$CODES,NOWRT,2 


OFFC 00000 OUTSEC: .WORD Save R2,R3,R4,R5,R6,R/,R8,RI,RIO,R11 


14 
CONTENTS CONTENTS = Table of Contents formatter program 1b-5e -1984 201: VAX-11 iss- 4.0-74 
vou-500 OUTSEC = Format a section number — 1 =300= 1382 99:03:23 VRUNOFFOSRe CONTENTS ot gst Songs (3 
B G EF 9€ MOVAB -HL_N, R11 ; 
A G EF 9E MOVAB CMDBLK, R10 : 
9 G EF 9€ : MOVAB LENSCT, R9 : 
: G6 EF 9E 0001 MOVAB PTRSCT. RB : 
6 Ef 9 1 MOVAB LP, R7 : 
9 p CLRL —LENSCT : 
68 000000006 FF : MOVAB TXTSCT, PTRSCT : 
03 6A 1 5 BBS #1, CMOBLK, 1$ : 
O0BE 31 BRW 3$ : 
6B 00000000' Ef b 0 3 1$ CPL LASTHL, HL_N : 
00000000' FF p 09 E TSTL ASTHL : 
D 44 BEQL $ 
000000006 cr 9F 00046 PUSHAB STRSFAILURE : 
E D4 0004C CLRL oe : 
000000006 EF 9F 0004E PUSHAB $STRSTARGET : 
00000000' EF 9F 00054 PUSHAB $STRSSTRING : 
: D4 0005A CLRL (SP) : 
000000006 EF 05 FB 005¢ CALLS #5, XSTSCOPY : 
0 000000006 EF 3C 0006 MOVZ2WL TMPSTR, RO ; 
000000006 EF 0 £0 0006A ADDL2 RO, CHROUT ; 
Q00000008 ER oo O0000G EF oF Boone ROVAS  $istqurryT. 108s+6s 
000000006 cE OF 00083 PUSHAB XPOSFAILURE : 
E 04 00089 CLRL = = (SP) : 
000000006 EF 9F 00088 PUSHAB 10B$ ; 
000000006 EF 03 FB 00091 CALLS #3, XPOSPUT : 
07 6A 1 €1 00098 BBC #1, CMDBLK, 2$ ; 
000000006 EF 00 FB 0009¢ CALLS #0. SPLIT F 
00 B/ 00000000' EF 80 900A3 2$: nov B ADA, aLP ; 
000000006 EF 3 CO QOOAE ADDL2 #2. INTLIN : 
OA DD 0008 PUSHL #16 : 
58 DD 00087 PUSHL R8 ; 
68 DO 600B9 PUSHL HL _N ; 
000000006 EF 03 FB 000BB CALLS #3, PACBAS : 
69 50 D0 900¢¢ MOVL RO, LENSCT ; 
68 000000006 EF 4 90¢3 MOVAB Txtscr, PTRSCT ; 
00 87 00 88 56 28 OOOCF MOVC3 6, @PTRSCT, aLP : 
é 56 CO 00005 ADDL ; LP ; 
000000006 _ EF 56 €O 00008 ADDL2 6. INTLIN ; 
69 D4 000DF CLRL LENSCT ; 
00 87 00000000° Ff 80 O0E| MOVW P.ADB, aLP ; 
67 3 C £9 ADDL 3, : 
000000006 _ EF 0 €6 O0E ADDL2 #2, INTLIN : 
03 6A 4 é OFS 3$: BBS #4. CMDBLK, 5$ : 
0085 31 000F7 4$: BRW ; 
68 146 AA D1 OFA 5$: CMPL § CMDBLK+20, HL_N ; 
13° (18 9 Fe BGEG ; 
FFFFFFFF © 8F 14 AA p} 9190 CPL CMDBLK+20, a1 ; 
06 000000006 EF p| 10A CPL MINOR, #6 ; 
50 000000006 EF 04 09 FF 113 6$: EXTZV #0, #4, PAGEN, RO : 
01 6B D1 OO11E CMPL  -HL_N, #1 : 


TS = Table of Contents fo 
- Format a section number 


1A 
000000006 Fe 
er 000000006 i 
iy ; 
4D 
50 
1A 
58 
ef 000000006 EF 
s 
i 
53 g 
2 
eeineneant 
OOOO0000GEF4 
EF 0 
69 50 
B8 2E 
68 
69 
52 53 
69 
00000000G_ EF 
69 
EF 02 
6A 01 
B7 20 
67 
00000000G_ EF 
000000006 4 
6A 1 
87 40 =8F 
67 
00000000G_ EF 
- 2 
1 
50 20 AA41 
51 68 
EF 5 
20 
50 000000006 FF 
6E 9 
00 
67 6 
EF 6 
EF 6 
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AX-11 Blis 
RUNOFF .SRC 


7$ 

HLDSP 
WLLIST 

#5, PACXXX 
RO. LENSCT 
11$ 


10$ 
HLDSP=4C1) 


HLLIST=-4C1] 
#5, PACXXX 


INTLIN 


HL_WIDTH 
wi, I 


6 

INDENTSCI), HL_WIDTH 
HL_N, I, 

HL WipTH, EXTLI® 


EXTLIN, HL_WIDTH, R6 
£0, (SP), #32, Ré, aLP 
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CONTENTS CONTENTS = Table of Contents formatter program 16-Sep-1984 00:01:05 AX-11 Bliss-32 V4.0-742 Pa 94 
you~000 OUTSEC = Format a section number _— 12-80-1382 90:03:08 RUNOFF ..SRCJCONTENTS.BLI;1 at (9) 
; Routine Size: 507 bytes, Routine Base: SCODES + 2158 
BRE Loe End of modu 
5 ! End of module 
; 2299 925 0 ELUDGM 

~EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNE 1388 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC ¥AL1GN(2) 
; SPLITS 668 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 9046 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
TE ei ae er eee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBIXPORT.L32;1 590 219 37 252 00:00.1 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CONTENTS/OBJ=OBJ$:CONTENTS MSRC$:CONTENTS/UPDATE=(ENH$: CONTENTS) 


3; Size: 9046 code + 2056 data bytes 
3; Run Time: :38. 

; Elapsed Time: 08:52.8 

3 Lines/CPU Min: 63 

3 Lexemes/CPU-Min: 9116 

3 ee | Used: 1086 pages 

; Compilation Complete 
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